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PREFACE 


The general objective of this book is to teach students 

to read System/360 COBOL programs with a high degree of 
comprehension. Some of the major topics dealt with are: 
the elements of the COBOL language -- reserved words, 
programmer-supplied names, symbols, literals, level 
numbers, and pictures; the organization of COBOL programs, 
and how the divisions of a program are related to each 
Other; and the interpretation, in detail, of entries in 
each program division. 


Additional information needed in order to compose 
Original COBOL programs has deliberately been omitted. 
It will be found in other publications of this series. 
The subject matter has been arranged in this way to give 
the student a chance to see what makes up a complete 
COBOL program, before he is required to write one. The 
student can concentrate on the meaning and function of 
program entries, without being concerned about their 
formats and alternate options. 


Several other topics are not discussed in this publication; 
for instance, the Report Writer feature, the Sort feature, 
floating-point operations, direct-access devices, and 

so On. However, care has been taken to teach concepts in 
a way that allows such topics to fall right into place 
later, with no contradictions or inconsistencies. 


This programmed instruction textbook is designed to be 
studied in conjunction with the COBOL Program Fundamentals 
reference handbook (Form R29-0206). The reference 
handbook contains technical information, and is kept by 
the student for reference purposes after he completes 

his studies. This textbook gives the student reading 
assignments in the reference handbook, explains the 
concepts that make sense of the technical information, 
and lets the student apply the information to practice 
exercises and problems. In short, the textbook teaches 
the student to find and to apply the information that is 
in the reference handbook. The student learns to look up 
information when he needs it, instead of memorizing it. 
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STUDENT INSTRUCTIONS 


1. This textbook must be used in conjunction with a reference 
handbook, form R29-0206. If you don't have the reference hand- 
book, get one before you go any further. 


2. The general objective toward which you will be studying, and the 
division of information between this textbook and the reference 
handbook, are explained in the Preface of this book. Have you 
read it? 


3. The purpose of this textbook is to guide and direct your study of 
System/360 COBOL. It is not meant to serve as a reference book - 
that's where the reference handbook comes in. In other words, 
once you have read this textbook, the odds are that you will have 
no further use for it; as a result, it is meant to be used by 
more than one student. The point is: Don't make any marks or 
notes in this book. 


4. The reference handbook, on the other hand, is yours to keep. If 
you care to make any notes, make them in the reference handbook. 


5. There are ten lessons in this book. In general, the lessons 
consist of reading assignments and questions. You will read 
specified parts of the reference handbook, and then answer 
questions about what you just read, or about something that you 
had previously read. 


6. There may be several reading assignments in a lesson, not just 
one at the beginning. The reading assignments give the major 
titles and subtitles of what you are to read, rather than page 
numbers. The major titles appear in the table of contents in the 
reference handbook. 


7. A lesson may also give you new information to supplement or 
explain what you read in the reference handbook. 


8, Each lesson is broken up into a number of frames, which are 
simply convenient instructional steps. You proceed through the 
lesson one frame -- one step -- at a time. The format of a 
frame usually looks like this (in miniature): 


First part of frame 
gtves reading 
asstgnment, other 
instructtonse, new 
tnformatton; usually 
asks a questton or 
requtres you to 

take some actton 


econd part of frame 
(not present in 

some frames) gtves 
correct answer to 
questton asked tn 
firet part. 


(Continued on next page) 


(3/66) Vil 


System/360 COBOL COBOL Program Fundamentals 


oe 
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Tits 


12. 


13. 
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The first part of every frame is ended by a group of three dots. 
If the frame asks you a question, the correct answer is printed 
on the same page, below the three dots. As you study each frane, 
you must hide the correct answer from yourself, so that you will 
feel challenged to come up with your own answer -- and thereby 
learn the subject, instead of just reading words. 


Use an ordinary sheet of paper or a card to hide the correct 
answers. Just make sure that the paper is heavy enough so you 
cannot see through it. (No onion skin or tracing paper allowed!) 


Start each page by putting your "hider sheet" at the top. Then 
slide your sheet down until you just uncover a set of three dots, 
as illustrated below. 


your "hider" ecard 
or sheet of paper 


Then read the first part of the frame, and formulate your answer 
to the question or problem it poses. When you have your answer 
clearly in mind, slide the "hider" sheet down to the next set 

of three dots. This will not only reveal the correct answer, but 
also uncover the first part of the next frame. 


correct answer to 
questton tn first 
frame 


first part of 
next frame 


Study at your own speed, but don't spend too much time with any 
one frame. Too much concentration on an isolated detail may 
destroy your comprehension of a general concept. (Which means: 
Don't let the trees block your view of the forest.) 


You will find additional instructions, along with helpful 


remarks and the author's opinions, printed in italics in some of 
the frames of the book. 


Vill 


a eran cere er ee eRe ee ee ee rer ae Se eR oe a= ne ER 


System/360 COBOL COBOL Program Fundamentals 


(3/66) 


LESSON 1 


If you have ever studted a foretgn language, tt ts posstble that 
somebody challenged you to say something in the language when 
you had barely fintshed your first leason! Well, this sort of 
thing happens when you study programming languages too. Although 
people are not likely to challenge you to say something tn COBOL, 
you may get questions like, "What ts COBOL, anyway?" For you to 
say that you're not sure, would sound like a forestry student 
admitting that he tsn't sure what a tree ts! In self defense, 
the thing for you to do ftrst ts to learn a few general facts 
and tdeas about COBOL. So, our first lesson te coneerned with 
tntroductory generalities. 


In your reading, you should pteck up the tnformatton that you need 
tn order to answer these two questtons tn your own words: What 
ts COBOL? What are tts purposes? 


Reading assignment: INTRODUCTION TO COBOL 
Origins 
Aims 
Differences 


All readtng asstgnments are tn the reference handbook that 
accompantes this textbook. Always complete the reading 
assignment before gotng on to the next frame. The frames that 
follow will ask you to apply what you have read, or wtll 
supplement your reading with additional information. 


There are several types of frames in thts book. Most of them 
have thts much tn common: they require you to formulate an 
answer mentally. Thts parttecular frame asks you to criticize 

a statement, based on what you have just read in the reference 
handbook. Your answer wtll probably be different from the 
printed answer, but tt should mean the same. Do not write your 
answer tn the book. 


What is wrong with this statement: "COBOL was invented by IBM", 


No single person or company can take credit for inventing COBOL. 
IBM participated in the development of COBOL, together with 
several other computer manufacturers and users. 
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optnton, judgment, or fact. In this frame, you are expected to 
recall a fact from your reading; however, tf you cannot remember 
tt, you may look tt up tn your reference handbook. 


In what year were the original specifications for COBOL drawn up? 


1959 


Frames ltke thts one requtre you to think of one or more words 
or numbers that complete the sentence. The length of the blank 
space will always be the same, so tt will not be a elue to the 
Length of the answer. Do not wrtte your answer tn the book. 


The name "COBOL" is derived from the words ° 


COmmon Business Oriented Language 


In thts type of frame, you are given a chotce of answers, whitch 
are stacked tn braces. Select the one best anewer, 


The name "COBOL" is pronounced KO-BALL. 
In other words, "COBOL" should be pronounced to rhyme with 


noble 
hobble 
snowball 
low bowl 
ee0e 
snowball 
2 
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MH kere is another kind of frame that offers you a choice of answers. 
In this kind of frame, each echotce te enclosed in brackets. 
Your job ts to select all the correct answers. To do this, you 
must examine every choice, instead of merely looking fora 
eorreect answer, because more than one of the choices may be 
correct. Perhaps all of the chotces are correct. Or none of them. 


In an effort to standardize programming, COBOL provides the 
programmer with [a standard program structure] [standard entry 
formats] [standard solutions for business data processing jobs]. 


a standard program structure AND standard entry formats 


But not standard soluttons to data processing jobs. Problem solving 


ts the programmer's job; COBOL ts a language in which he can express 
hts soluttons. 


WA You can think of "Common Business Oriented Language" as COBOL's 
official title. Unfortunately, each one of the words of the 
title can possibly be taken in various ways, so they require a 
little explaining. 


The title is intended to convey the basic purpose of COBOL: 
to be one language for all computers -- a standard language for 
programming business problems. 


ordinary 


COBOL is "common" in that it is well-known 
conversational 


shared 
ee0e 


shared (shared by all computers) 
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COBOL program prepared for one computer (say, an IBM 1410) and 
drop it into the card reader of a different computer (say, an IBM 
System/360). You would not have to write a new program, starting 
from scratch, but you would have to make some changes. 


It would be a mistake, then, to say that COBOL is identical for 
all computers. But it would be equally wrong to exaggerate the 
differences in COBOL for different computers. What it amounts 
to, is that there are several versions of a common language, 
much like dialects of a spoken language. 


Which statement best sums up this idea? 


Several different programming languages bear the name "COBOL". 
All COBOL systems except System/360 COBOL are alike. 

The similarities of COBOL systems far exceed their differences. 
It is a mistake to use the name "COBOL" for different languages. 


The similarities of COBOL systems far exceed their differences. 


The words "business oriented" also require a little explaining. 
They have three implications: first, that COBOL is business 
procedure oriented, rather than machine oriented; second, that 
COBOL is particularly applicable to business data processing 
problems, as opposed to scientific problems; and third, that 
COBOL is a language that businessmen can understand. 


Because COBOL is not machine oriented, the COBOL programmer 
does not need to know 


[what the operation code for adding binary numbers is] 
[what data items make up his input records] 

[what the general registers are used for} 

[whether the output data is to be punched, or written on 
Magnetic tape]. 


what the operation code for adding binary numbers is AND what 
the general registers are used for 


The COBOL programmer does need to know the layout of data 
records, and the media on whtch they are recorded. 
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outdated 


ta ne i by new developments in computer technology. 


is not outdated 


Consider this statement: "COBOL must be obsolete, because there 
have been revolutionary changes in computers since 1959". There 
are at least a couple of good reasons why this statement is false. 
One is the point made in the previous frame. Another reason why 
COBOL is right up-to-date is that the COBOL specifications have 
been several times since 1959. 


revised and improved 


We say that COBOL is oriented to business procedures because a 
COBOL program consists of descriptions of (1) the procedures 
according to which data files are to be processed, (2) what the 
contents of the data files are, and (3) what input-output devices 
the data files are to be assigned to. 


You have undoubtedly seen definitions of "computer program" that 
go something like this: A program is a series of machine 
instructions that direct the computer to perform a sequence of 
Operations. Would you say that this definition applies to 

COBOL programs? | 


No. A COBOL program is a "program" in a broader sense -- it is 
a solution for a problem. (Ultimately, to be sure, a series of 
machine instructions will be compiled from the COBOL program.) 
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COBOL is also business oriented in the sense that it is 
particularly applicable to business data processing problems, 
as opposed to scientific problems. Here I am paying lip service 
to that unfortunately vague line between business and scientific 
computer applications. Tasks like preparing reports and updating 
Files fall into the business category, to which COBOL is oriented. 
Tasks that involve trigonometric functions (sines, cosines, etc.) 
Or Boolean algebra (logical ands, logical ors, etc.) are examples 
of tasks that fall into the scientific category. 


Decide which category each of these tasks belongs to: 


1. Calculating logarithms 
2. Sorting records 


Calculating logarithms is a task that most people put into the 
scientific category; sorting records is in the business category. 


ERY For the most part, business data processing involves moving data 
around -- putting data in and out, rearranging it, changing its 
appearance, comparing items of data, locating desired items, etc. 
Arithmetic operations are involved, but they are generally limited 
to adding, subtracting, multiplying, dividing, and occasionally 
exponentiating (raising a number to a power, or finding a root of 
a number). COBOL is designed for these kinds of operations. 


Jobs that involve complicated mathematics are harder to program 
in COBOL. As a general rule, such tasks are in the scientific 
category. 


Categorize each of these tasks as business or scientific tasks: 


Ll. Computing a hyperbolic tangent 


2. Searching a table for a particular data item 
3. Calculating the area of a circle 
ee0@ 


The hyperbolic function involves mathematics that seems 
complicated to me, so I would call it scientific. Searching a 
table is definitely a business task. The formula for the area 
of a circle (nr?) really calls for two simple multiplications 
(3.1416 x r x r), which puts it into the business category. 


Nottce that we begin to get tnto a gray area here. Finding the 
area of a etrele ts stmple to program in COBOL, while findtng 
the area under a hyperbola ts not. 
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COBOL is “business oriented" in a third sense: a businessman 
can understand COBOL programs after a short introduction to the 
language, whether or not he is a programmer. 


A sample COBOL sentence is printed below. Notice that it is 
practically self-explanatory. It illustrates that the COBOL 
language resembles the language. 


English 


Bf computers can't understand English, so what's the point of 
writing programs in English? 


ee0e 
Programs written in English serve to communicate data processing 


procedures to people, in addition to serving as source programs 
for computers. 


When a programmer writes a program in machine language or in an 
abstract symbolic language, he prepares a detailed explanation 
of what the program does and how the program does it. This 
supplementary write-up, called "documentation" of the program, 
often takes as much time to prepare as it took to write the 
program itself. 


Since COBOL programs are similar to English, they 
require more documentation than other programs 
require just as much documentation 
require less documentation 
require no documentation at all 

ec0o 
require less documentation 
Although COBOL programs are sometimes referred to as 


"self-documenting", some documentation ts almost always needed -- 
posstbly just remarks and notes added to the program. 


(3/66) 7 


System/360 COBOL COBOL Program Fundamentals 


GER fhere is danger of going overboard on the idea that COBOL is 
Ltke English. If COBOL were completely self-explanatory, there 
would be no potnt tn studytng a course on how to read COBOL, 
would there? You have already seen one sample COBOL entry that 
was an eastly readable sentence. In order to get a balanced 
potnt of vtew, let's look at some entrtes that are not qutte so 
readable: 


os Certain elements of the COBOL language have symbolic 
meanings, as tllustrated by the 03 and the 9(6)V99 found 
tn the entry below. 


2. In some cases, the words are easy enough to read, but 
thetr meaning ts not obvtous. For instance, the words 
below mean "the data tn thts ttem ts recorded tn binary 
eode" -- but a person must have studied System/360 
COBOL tn order to know that. 


Dis It ts also posstble for a programmer to misuse the 
language, by writting entrtes that are hard to understand. 
Perhaps the example below ts a trifle extreme, but tit 
will serve to show what happens when programmers use 
abbreviattons that are meaningful only to themselves, 

a common error, 


19 | Even though a COBOL program ts not exactly the same as a story 
wrttten tn English, at least COBOL makes an attempt to 
approximate English. And one thing ts certain: writing 
programs tn COBOL ts a far cry from writing programs tin the 
actual language of the computer. 


Of course, the tdea that programs need not be wrttten tn machine 
language ts one of the matn tdeas behind programming systems in 
general, Although those tdeas are not new to you, tt wtll be 
worth your whtle to revtew some of the familtar terms -- and to 
see how they apply to the COBOL system in parttecular. 


Reading assignment: COBOL PROGRAMMING SYSTEM TERMS 
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The ultimate objective of using the COBOL system is to produce 
correct, efficient machine language programs, which are 
called : 


object programs 


Object programs are produced by pihichieias : 


computers 
ee0 


computers 


COBOL programs are source programs 
object programs 


source programs 


Source programs are produced by iain | ; 


computers 
e@e@ 


programmers 


Can a COBOL program be executed by a computer? 


No, because it is not in machine language. 


Every programming system includes a processor -- a program that 
directs the computer to produce an object program from a source 
program. In the COBOL system, the processor is called the ° 


COBOL compiler 
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The program that is compiled is the 


COBOL program 

COBOL compiler 
source program 
object program 


ee0 
object program 
Make sure that you have the relationship between these programs 
straight. An object program ts comptled from a COBOL program. 
A COBOL program ts a source program written tn COBOL. The COBOL 


compiler ts executed during compilatton, to cause an object 
program to be compiled. 


Bia The System/360 used to compile an object program is the 


object computer 
source computer} — 


source computer 


The object computer is a System/360 that is used to [compile] 
[execute] the object program. 


execute ONLY 


For a given System/360 COBOL program, the source computer and 
the object computer 


[may be the same System/360] 
[must be the same System/360] 
[may be different System/360s] 
[must be different System/360s]. 


may be the same System/360 OR may be different System/360s 


Thts ts strictly a matter of hardware conftgurattons. 

A System/360 may be used both as the source computer and as the 
object computer provided that it contatns the hardware required 
to execute the COBOL compiler and the object program. On the 
other hand, a System/360 Model 30 might be used to compile a 
program, while a System/360 Model 50 mtght be used to run the job. 
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This review of terms was pretty superfictal -- and deliberately 
so. There ts nothing to be gatned by spending any more time on 
a subject that you are already famtltar with. However, you 
should feel fatrly conftdent of your knowledge of these terms 
before you continue. You may find tt useful to read the 
definittons in the reference handbook once again. Incidentally, 
tf you dtdn't recognize the terms, or tf our dtsecusston of them 
seemed like a lot of gtbberish, then that ts a good tndteattion 
that you do not have the baekground you need to put the rest of 
thts course to good use; in that case, you ought to put this 
course aside for now, and study "Baste Computer Systems 
Prinetples" tnstead. 
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LESSON 2 


So far, we have talked about COBOL in general terms. Now, let's 
get down to specifics, and find out what elements make up the 
COBOL language. I use the term "element" for the baste units 
that are found tn COBOL programs: the various kinds of words, 
numbers, and symbols. "Element" ta not an "offictal" term, but 
tt will do the job in the absence of a better term. 


Find out how many elements there are, what they are called, and 
where they come from. 


Reading assignment: LANGUAGE ELEMENTS 
Examples of elements 


How many elements are there? 


ee0e 
Six 
See how many of the elements you can name. 


reserved words, programmer-supplied names, symbols, literals, 
level numbers, pictures 


Which elements are composed by programmers, following certain 
- Yrules? 


programmer-supplied names, literals, and pictures 


Which elements are selected from fixed sets as they are needed? 


reserved words, symbols, and level numbers 
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At thie point, you will learn detatled tnformation and rules 
about each element in turn. Don't waste your time memorizing 
the rules; after all, you can always look them up when you need 
them. The tmportant thing ts to be aware of the areas tn which 
rules extst, and how much latttude they give the programmers, 
or how severely they limit him. 


Reading assignment: RESERVED WORDS 
Types of reserved words 
Figurative constants 
Complete list of reserved words 
for System/360 COBOL 


composed 
eee 


Reserved words are pcan by programmers. 


selected 


Examine the reserved word list. Notice that most of the 
reserved words are simple English words, made up of letters only. 
A few of the words contain digits. Some contain hyphens. 


Spaces jean found in some of the words. 
are not 


are not 


Spaces, you wtll later learn, are used to separate words and 
other elements in entrtes, so they are never found wtthtn words. 


The reserved words are an inherent part of the COBOL compiler's 
vocabulary, but of course, the words must be spelled exactly 
right in order for the compiler to recognize them. Exact 
spelling includes hyphens, too. 


Under this rule, is WORKING STORAGE equivalent to 
WORK ING-STORAGE? 


No, it is not. 
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EG) No substitutions are allowed in the reserved word list. 
Webster's Dictionary may prefer "numerical", but COBOL insists 
on NUMERIC. 


Refer to your reserved word list to pick the correct spelling in 
each pair of words below: 


1. ALPHABETIC or ALPHABETICAL? 

2% PROGRAM-IDENTIFICATION or PROGRAM-ID? 
3. IDENTIFICATION or ID? 

4. ZEROS or ZEROES? 


ee0e 
Ls ALPHABETIC 
2% PROGRAM-ID 
ce IDENTIFICATION 
4. Both ZEROS and ZEROES are correct. 


You can see that there ts a certain arbitrariness about the list 
of reserved words. COBOL programmers generally keep the list 
right at thetr elbows when they wrtte a program. 


You wtll see many of the reserved words as you proceed through 
thts course, tn the context of the entries in whitch they are used. 
Therefore, we wtll not go down the ltst to discuss what each word 
ts used for. However, one type of reserved word, the figurative 
constant, has been singled out for a little extra attention in 
the reference handbook. This has been done beeause the 
ftgurattve constants ZERO and SPACE are found tn many different 
entrtes. 


"Figurative constant" is a mouthful to say, but it is a 
reasonable term, since words like ZERO stand for constant data, 
rather than actually being the data. In other words, they are 
constants ina sense, rather than a literal sense. 


figurative 


The reference handbook discusses the ftgurative constants ZERO 
and SPACE, and thetr respective plural forms. The other 
figurattve constants are HIGH-VALUE, LOW-VALUE, QUOTE and ALL 
(plus thetr plurals); these ftgurattve constants have 
relatively spectalized uses, which you will learn in due time. 
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EER vow let's turn to the subject of programmer-supplied names. 
"Programmer-supplted names" -- there ts another mouthful for 
youl! This term ts useful to us, though, because we must 
distingutsh names that are composed by programmers from names 
that are reserved words. We wtll gtve some attentton first to 
the rules that govern the formation of programmer-supplted 
names; then we wtll see how programmer-supplted names and 
reserved words are used together. 


Reading assignment: PROGRAMMER-SUPPLIED NAMES 
Rules governing programmer-supplied names 
Examples of programmer-supplied names in 
an entry 


Reserved words have preassigned meanings. By contrast, 
programmer-supplied names must be within the program in 
which they are used. | 


eee 
defined 
Programmers supply names for . 
eee 


data items, data conditions, and procedures 


46 | According to the rules, programmers may compose names like 
PAYROLL, ACCOUNTS~RECEIVABLE, or 265. PAYROLL and ACCOUNTS- 
RECEIVABLE might be names of data items, data conditions, or 
procedures; however, 265 could only be the name of a ° 


procedure (because names of data items and data conditions must 
contain at least one letter, while procedure names can be 
composed entirely of digits) 


47 | Any letter or digit may be used in a name, but the only special 
character allowed is the ‘ 


hyphen 
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A hyphen is not allowed to be [the first character] 
[the last character] of a name. 


NEITHER the first character NOR the last character may be a 
hyphen. 


The word CODE is not an acceptable programmer-supplied name. 
Why not? 


CODE is a reserved word, and therefore cannot be used as a 
programmer-supplied name. It violates the rule that a 
programmer-supplied name must not be spelled exactly the same 
as a reserved word. 


Is RECORD-CODE an acceptable programmer-supplied name? 


Yes. Even though it contains two reserved words, RECORD and 
CODE, they have been joined by a hyphen to form a new word whose 
spelling is different from either of these words. 


Is the following statement true or false? 90-DAY-ACCOUNT is an 
illegal name for a data item because the first character of a 
name must be a letter. 


False. The rule states that names of data items must contain at 
least one letter, but does not specify that the first character 
must be a letter. 90-DAY-ACCOUNT is a perfectly legal name. 


System/360 COBOL 


Check your understanding of the rules for programmer-supplied 
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names. For each name below, decide what rule, if any, is being 
violated. 


1. 5 

2% SYSTEM/360 

36 OVERFLOW 

4. ECONOMIC-ORDER-QUANTITY-COMPUTATION 
DO ENTRY-PROCESS 

6. HEADING LINE 

4 F.I.C.A. 


de O.K. (acceptable for procedures, though not for data items 
or conditions). 

2% Contains an illegal special character (SYSTEM-360 would 
be correct). 

3. Not allowed because OVERFLOW is a reserved word. 

4. Exceeds 30 characters. 

oe O.K. 

6. No spaces are allowed. 

Te Contains illegal special characters (FICA or F-I-C-A) 
would be all right, but F-I-C-A- would violate still 
another rule). 


You can see that the rules for programmer-supplted names are not 
espectally restrictive. They permit programmers to invent just 
about any name under the sun. In fact, they give the programmer 
so much freedom to tnvent names, that he must learn to hold back 
hts tnventtve gentus. Remember that one of the aims of COBOL ts 
to produce programs that read ltke Engltsh, which mean that the 
programmer should etther use English words for names (SALARY, 
DEDUCTIONS, ete.), or compose names from two or more Engltsh 
words, connecting them wtth hyphens (SOCIAL-SECURITY, FEDERAL- 
INCOME-TAX, ete.). Stnee names can be 380 echaractere long, there 
ts no need to abbreviate or to make up code names. 
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But suppose that a programmer decides to use a name like Z2QX-3. 
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First, is ZQX-3 a legal name (does it violate any rules)? 
Second, is it a good name? 


ZQX-3 is a legal name, inasmuch as it does not violate any rules. 


The answer to the second question ts a matter of optnton. I hope 
you agree that meaningless names have no place tn a COBOL program 
because they defeat the purpose of making programs easy to read 
and understand. By this standard, Z2QX-3 ts a good name only if tt 
ts readtly understood by everyone who has to read the program. 

It ts a bad name tf tt makes sense only to the programmer. 


For instance, tf the program has something to do wtth the 
manufaeture of self-starting charcoal briquets, and ZQX-3 ts the 
secret new tngreditent that makes ltght fluid obsolete, then 
ZQX-3 ts the name to use. But tf the programmer decided to use 
ZQX-3 tn place of MINIMUM-BALANCE because tt ts shorter, or 
because he onee met a eab driver named Zarathustra Q@. Xerxes III, 
then tt ts a bad name. 


Reserved words and programmer-supplied names together account for 
nearly all of every COBOL program. The reserved words may be 
thought of as forming the skeleton, while the programmer-supplied 
names are the meat of most program entries. To get the idea, 
pick out the reserved words (with the aid of the reserved word 
list) and the programmer-supplied names in the entry below. 


programmer-supplted names 
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FYa Pick out the reserved words and programmer-supplied names in the 
entry below. Notice that this entry has the same framework of 
reserved words as the entry in the preceding frame. 


eer oe 
GROSS 


programmer-supplted names 


57 | Here is a slightly longer program entry, with a considerably 
different ratio of reserved words to programmer-supplied names. 
Using the reserved word list, find out which words in the entry 
are reserved words, and which are programmer-supplied names. 


Reserved words Programmer-supplied names 


FD PAYROLL=<FILE 
LABEL EMPLOYEE-MASTER 
RECORDS 

ARE 

STANDARD 

DATA 

RECORD 

IS 


In thts example, the programmer has supplied the names of a data 
file and a data record. You have read that names for data ttems, 
data condttions, and procedures are supplted by programmers; 

for the moment, you can think of the ftle and the record as 

types of data tteme. 
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58 | You can see that two of the main tasks involved in COBOL 
programming are to select the reserved words required for the 
framework of entries, and to supply names to fill in the frame- 
work -- especially names for data items. You know that it is up 
to the programmers to define the names that he uses. 


You also know that there is an exception to this general rule; 


namely, that there are a few predefined data items with reserved 
names, which are called : 


figurative constants 


EE) The most commonly used figurative constants are ° 


ZERO (ZEROS, ZEROES) and SPACE (SPACES) 


Re in the sample entries that you have seen, you have undoubtedly 
nottced some symbols -- spectftically, pertods and commas. These 
are only two of a large number of symbols that play an tmportant 
role tn COBOL programs. The typteal procedure entrtes below 
tllustrate a few more of the symbols used tn COBOL. 


4 eR = 
EWS UNIT le ar 
-TCCHIET MASE RRURBER! > 
COTE TTT elo! Frlol we) ‘rie 


Learn what groups the symbols are divided tnto, and get a general 
tdea of what symbols are tn each group. Look for symbols that 
appear tn more than one of the groups. 


| INE! 
Lt ly 


Reading assignment: SYMBOLS 
Punctuation symbols 
Arithmetic symbols 
Condition symbols 
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Ra In the reference handbook, symbols are defined as "special 
characters which, , have particular meanings for the 
compiler". 


individually 


2a some of the special characters which are used as symbols also 
appear in other elements, but there they are not used 
individually, and there also, they have different meanings. 
For example, a hyphen and a minus sign are the same character; 
however, they are used differently and obviously have different 
meanings. A hyphen is found embedded between other characters in 
reserved words and programmer-Supplied names, where it has no 
special meaning, and serves only to improve readability. A minus 
Sign stands apart in an arithmetic formula, with spaces before 
and after it,and signifies subtraction. 


Accordingly, the correct way to read the formula for computing 
CURVE in the entry below is 


RANGE-ARCH minus RADIUS 
RANGE minus ARCH-RADIUS 


mace minus ARCH minus — 


ee0e 
RANGE minus ARCH-RADIUS 
63, COBOL symbols fall into three groups: symbols, 
symbols, and symbols. 
ee0e 


punctuation, arithmetic, condition 
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7a Punctuation symbols make program entries more readable. In most 
cases, the use of punctuation marks is left up to the programmer. 
At his discretion, he may use commas to separate a series of 
operands or clauses. Or he may use semicolons to separate a 
series of clauses, in place of commas. 


Certain punctuation is mandatory, though. A symbol that is 


required in every program entry is the that terminates the 
entry. 

eee 
period 


In this course, the term "entry" ts used tn the prectse sense of 
a_ series of language elements, the last of whitch ts a pertod. 
That ts to say, an "entry" wtll not be spoken of as gust 
something entered on a coding sheet. Thts ts dtsecussed further 
tn a later lesson. 


EY arithmetic symbols allow the COBOL programmer to write formulas 
in mathematical notation. There are, then, two general ways of 
doing arithmetic in COBOL: narratives and formulas. The 
difference between the two can easily be shown by an example; 
these two entries mean the same in COBOL: 


In this example, the entries are exactly the same length, but 
you might guess that, in most cases, 


2 narrative is shorter than the equivalent canbe | 
a formula is shorter than the equivalent narrative 


a formula is shorter than the equivalent narrative 
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7a Like arithmetic symbols, condition symbols are shorthand 


(3/66) 


equivalents of written narratives. The two entries below have 
identical meanings. 


irl Maistre WuMbleR! ef bletaliUwuMeler|. ITTTT 
CL Welle! Malsireri-recorbl.| 111) iti 


TTT el iwlalsirefr-niulislet Tiis|Ilelsis| Traini TTT TTT 
Pitt | Derial LENjUMBIEIR),| WiR}IITE] MASITIEIRHRIelclolRID.| | 


This example shows that the symbol < is equivalent to what 
reserved words? 


IS LESS THAN 


Certain symbols appear in more than one group of symbols. For 
instance, the equal sign is both an arithmetic symbol and a 
condition symbol. In the first entry below, the equal sign is 
used as a condition symbol; here it calls for two items to be 
compared to see if they are equal. In the second entry, it is 
ised as an arithmetic symbol; there it causes the data named at 
the left of the equal sign to be made equal to the result of the 
computation -- that is, it calls for the result to be moved into 
that data item. 


Which statement best sums up this idea? 


An equal sign never has exactly the same meaning twice in 
succession. 

No matter what they mean, all equal signs look alike to the 
untrained eye. 

Equal signs are unpredictable, but the compiler can usually 
figure them out. 

Equal signs in arithmetic and conditional entries have 
different meanings. 

All equal signs are created equal, but some are more equal 
than others. 


Equal signs in arithmetic and conditional entries have different 
meanings. 
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LESSON 3 


By this ttme, you should feel quite at ease with the various 
sample entrtes you have been looking at. You should be able to 
tdenttfy the reserved words and the programmer-supplied names in 
any entry, and you should be able to explain the dtfference 
between those elements. You also have a general tdea of the 
kinds of symbols that you wtll run across tn COBOL programs. 


In this lesson, we will dtscuss the three remaining elements -- 
ttterals, level numbers, and pictures. In contrast with the 
first three elements you have studied, these elements have 
comparatively spectalized purposes, and do not oceur as 
frequently in a program. However, tt ts every bit as important 
for you to know how these elements are used, and to be able to 
recognize them tn program entrtes. 


You wtll study literals first. Learn what a ltteral t8, and what 
the two matn types of literals are. Determine how you ean tell 
the dtfference between the two types. 


Reading assignment: LITERALS 
Rules governing numeric literals 
An example of a numeric literal in an entry 
Rules governing non-numeric literals 
An example of a non-numeric literal 
in an entry 


A literal is an actual used in a program. 


value 


The two main types of literals are : 


numeric and non-numeric 


System/360 COBOL permits the use of a third type of ltteral, the 
floating-point literal, which we will not deal wtth tn thts book. 
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Pick out the literal in the entry below. What type of literal 
is it? 


Tol NUMBER-lOF-RlEcor|Ds.. 
e@@@ 


The digit 1 in this entry is a numeric literal. 


Which characters are not permitted in numeric literals? 


Letters and most special characters are not permitted. The only 
special characters permitted are a plus or minus sign as the 
leftmost character, and a decimal point as any character except 
the rightmost. 


The correct way to write "minus one-half" as a numeric literal is 
-1/2 
-.05 e 
-.5 


-.5 


One of the rules for numeric literals is that whole numbers are 
written without decimal points. A decimal point may not be the 
rightmost character of the literal. The entry below appears to 
violate this rule, yet it is a correct entry. Can you explain 
this discrepancy? 


The last character is not a decimal point; it is the period that 
ends the entry. This becomes clear when the entry is rewritten 
aS COMPUTE LOAD = 30 * WEIGHT. 


Thts ts another example of a character having dtfferent meanings 
tn different contexts. However, this should not seem unreasonable 
to you, tnasmuch as the same character ts used in the same two 
ways tn everyday English. 
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My Non-numeric literals are easily recognized, because they are 
enclosed in : 


quotation marks 


Nottee that we use the stngle quotation mark (') and not the 
double quotation mark ("). Single and double quotation marks 
are dtstinctly different spectal characters, wtth different data 
codes tn System/360. WNon-numeric literals in System/360 COBOL 
must be enclosed by single quotatton marks, one before and one 
after the literal. 


Don't be misled by the name "non-numeric". Non-numeric literals 
may contain digits, and they may be numbers. Which of the 
literals in this list are valid non-numeric literals? 


‘JANUARY, 1966' 
'NOT IN FILE' 
| ‘So! 
‘1! 
eee 


These are all valid non-numeric literals. 


Suppose that all of the items in the list below are literals. 
Which are numeric literals and which are non-numeric literals? 


The numeric literals are 50, 30565, and 3.1416. The non-numeric 
literals are '-5.03' and 'TOTAL'. 


I have reprinted the quotatton marks here because they are 
essential to the tdenttftcatton of the type of literal. 


Remember, though, that the quotation marks merely enclose a 
non-numerte literal, and are not part of the literal. 
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Which character is not permitted in non-numeric literals? 


The quotation mark is not permitted, because it signifies "end of 
literal" to the compiler. 


In non-numeric literals, you can write anything you want between 
the quotation marks, as long as you don't throw in another 
quotation mark. You might, for example, use a non-numeric 
literal for the message 'NUMERIC SECURITY CONTROL IS OMITTED', 
even though every word in this message is a word. 


reserved 


Can the last character of a non-numeric literal be a decimal 
point, for example, '$4500.'? 


Yes 


From time to ttme, I have menttoned that programmers must define 
the names that they use tn programs. To define the name of a 
data ttem, the programmer merely tneludes the name tn an item 
descrtptton entry. Level numbers and pictures are also found in 
these ttem descrtptton entries. The subject of ttem description 
entrtes witll be explored in depth tn a later lesson, but we will 
touch on tt briefly at thts potnt. The thing for you to learn 
now ts how to recognize level numbers and pictures tn a program. 


Reading assignment: LEVEL NUMBERS 
Examples of level numbers in entries 
PICTURES 
Examples of pictures in entries 


A number that designates the level of a data item, in relation 
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to other data items, is called a ;: 


level number 
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EK} Level numbers are found in entries that assign to data items 
and data values. 


eee 
names 
EY§ The numbers 01 through 49, 77, and 88 may be used as level 


numbers. Level numbers 01 through 49 are used for data items 
that form ° 


records 


EJ Level number 77 is used for items that are neither records nor 
part of records. Such items are called ‘ 


independent items 


Level number 88 is used to assign names to that data items 
may assume. 


values 


There are three elements in this entry. The last element, as 


always, is a punctuation symbol -- the period that indicates the 
end of an entry. The first element, 01, is a , while 
PARTS-CATALOG-ITEM is a ° 


level number 
programmer-supplied name 


(3/66) | 29 


System/360 COBOL COBOL Program Fundamentals 


FyJ as in every entry that contains a level number, the level number 
is the element in this entry. 


first 


EXJ a string of characters with special meanings that describes 
certain characteristics of a data item is called a 


ece0e 
picture 


[ry A picture is easy to recognize in a program because it is 
preceded by the reserved word . 


PICTURE (or PICTURE IS) 


PICTURE 99 
The picture in this entry is PICTURE , 


99 


99 


The reserved word PICTURE merely stgnals that 99 ts a pteture, 
just as on a stgn that reads "SPEED LIMIT 50", 50 ts the speed 
limit and the words that precede tt are there merely to 
distingutsh the number from other numbers on stgns along the 
road. The two elements PICTURE 99 together are called a 
"oteture elause". The clause might also have been written as 
PICTURE IS 99. 
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Pictures present us with the interesting situation of sometimes 
having an element within an element, since pictures may contain 
numeric literals. These literals must be unsigned whole numbers, 
and are easy to spot because they must be enclosed in . 


parentheses 


The picture in the entry below is the abbreviated way of writing 
56 Xs. Aside from the fact that a programmer would be out of his 
mind if he didn't write X(56) instead of 56 Xs, it would be 
illegal to write a string of 56 Xs. Why? 


A picture must not be over 30 characters long. 


The pteture X(56) ts only frtve characters long, even though tt 
represents 56 Xs. 


The literals help to make the picture more readable. You see, 
one of the things that a person mtght want to know when he ts 
checking out, debugging, or analyzing a program, ts just how 
often a pteture character of a certain kind ts repeated. He 
might mtscount the repetitions tf the picture were 9999999999, 
while 9(10) practically eliminates the possibility of a mistake. 


The number in parentheses indicates the number of times the 
picture character occurs without interruption by some other 
character. Thus, the correct abbreviation of S999999V99999 is 

SV9 (11) 

S9(11)V 

9(11)SV ° 

S9 (6) V9 (5) 

eco 


S9(6)V9(5) (The character V interrupts to form two strings of 9s.) 
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Pictures are found only in entries that begin with level numbers, 
as the first entry below illustrates. However, as the second 
example illustrates, an entry with a level number 


must always be written with a picture 
is not complete if it lacks a picture 


jase not necessarily contain a toture | | 


eee 
does not necessarily contain a picture 


96 You wtll learn much more about ptetures in a later lesson, so 
don't be concerned about not knowing what the Xs and 9s and 
other picture characters actually mean. However, you shauld now 
be aware that ptetures appear tn some ttem description entries, 
and that they play a role tn the process of defining data items. 
And you should be able to recognize a pteture when you see one. 


You have now studied all six COBOL language elements. You will 
find these elements in all COBOL entries, in all COBOL programs. 
Knowledge of the elements has little value in and of itself, 
though -- unless you can recognize each element when you see it 
in a program. 


To make the task a little harder, some of the elements may look 
alike. For instance, the number 99 could be a [reserved word] 
[programmer-supplied name] [literal] [level number] [picture]. 


programmer-supplied name OR literal OR picture 


The number 99 might be the name of a procedure. It ts also a 
valid literal or picture. It ts not a reserved word, since it 
does not appear on the reserved word list. And itt ts not a 
level number, because tt ts not a number between 01 and 49; 
77; or 88. 
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98 | The meaning of a number in a COBOL program is determined by the 
context in which it is used. It is possible for the same number 
to be used in several different ways within one program. 


Applying this general rule to a specific case, you can conclude 
that the number 25 


cannot be used as a literal because it is reserved for use 
as a level number 

can be used as a literal even though it is also used as a 
level number 

can be used as a literal only if it has not previously been 
used as a level number 


can be used as a literal even though it is also used as a level 
number 


EX often it is fairly easy to identify an element. For example, 
the number 999 in the entry below must be a because 


picture, because it is preceded by the word PICTURE 


/100_ The task isn't always as easy as it was in the previous example, 
but it is usually possible to make a positive identification 
based on the rules that you are already familiar with. See how 
well you do in the following cases. 


In this entry, 15 is a because : 


level number because it is the first element of the entry and is 
followed by a programmer-supplied name 
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In this entry, 65 is a because . 


non-numeric literal because it is enclosed in quotation marks 


The rules for tdenttfytng ptetures, level numbers, non-numeric 
literals, and reserved words are fatrly simple. And you ean 
generally tdentify other elements by a process of eltminatton. 
If, for instance, you come across a name that contains letters, 
and itt ts netther a reserved word nor a non-numeric ltteral, then 
tt must be a programmer-supplited name. Stmtlarly, tf you find a 
number that ts not a level number, not a ptcture, and not a 
non-numerte literal, then tt must be either a numerte literal or 
the programmer-supplted name of a procedure -- and the context 
tn whitch you find tt wtll generally tell you whether the number 
ts a literal or a procedure name. 


In the entry below, you can determine that FD is definitely 
a - Also, you can figure out that 32 must be a . 


TLABEL relcorols are stlanpalro; 
__ DATA] RECIORD [1S IINVENITORY|— sRecoRD 


eee 
reserved word; numeric literal 


You should have identtfied FD easily and positively with the aid 
of the reserved word ltst. And you should have figured out that 
352 ts a literal from the sense of the entry, which says that a 
bloek tn the tnventory ftle actually -- literally -- contains 

32 records. 


In certatn entries, such as the one in this frame, literals are 
required to be whole numbers, and to have no sign. You have 
already seen such literals in pitetures. You will find that these 
unstgned whole numbers are called "integers" in COBOL manuals. 
For the present time, the tmportant thing for you to realize ts 
that the values of these numbers are taken literally by the 
compiler, so we wtll call them all "literals". 
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BRYY one of the numbers in this entry is a procedure name, and one is 
a literal. Which is which? 


eee 
The procedure name is 582. The literal is 607. 


Notice that the name 582 reveals nothing about the processing 

done in that procedure. Thts entry would have meant more to the 
reader: IF AREA-CODE = 607, GO TO COMPUTE-TOLL. This tllustrates 
why English words are usually preferred to numbers so far as 

names are concerned. 


ERE mn the next four frames, identify all of the elements in each 
entry. 


eee 
— — punetuatton symbol 
SUBTRACT 1 FROM Sop-ccun 
vA | 
numerte programmer-supplted 
ltteral name 


punetuatton symbols 


| es Seer | 
DISPLAY 'GQNITIATE ERROR PROCEDURE. 3)' 


UPON CONSOLE. ‘ 
non=numertic 


reserved punetuatton Ltteral 
words symbol 
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g 
i 


eee 
level number punetuatton symbols 
a Ze | 
O02 AVERAGE-COST)¥% PICTURE ($Z2Z2Z.ZZ 
programmer-supplted reserved | 
name word pteture 


punetuatton symbols 


rh Sk1 P-TO-CHANNEL 3)” PICTURE XY VALUE ‘'2'! 
level number programmer-supplted reserved itteral 
name words 


pteture 


GRR the information you have learned about the six COBOL elements is, 
of course, not an end in ttself. Rather, tt provides you with a 
foundatton of terminology, and wtth the abtltty to recognize the 
elements tn programs. The elements wtll come up agatn and again 
tn future lessons; whenever a reference ts made to an element, 
and you are not quite sure of the faets about tt, make a potnt 
of looking back at the reference handbook. By repeatedly 
Looking up facts when you need them, you wtll soltdtfy your 
knowledge of them; tn partteular, you wtll see much more clearly 
how new facts relate to facts you have prevtously studied. 
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GRRN Let's quickly review some of the material you have been studying. 


1. Which elements are selected by the programmer from 
fixed sets? 


2. Which elements are composed by the programmer? 


l. reserved words, symbols, level numbers 
2. programmer-supplied names, literals, pictures 


mye One of the major restrictions imposed on elements composed by 
the programmer is their length. See if you can recall the 
maximum length of each of these elements: 


l. programmer-supplied names 
2. non-numeric literals 

3. numeric literals 

4. pictures 


1. 30 characters 
2. 120 characters 
3. 18 digits 

4. 30 characters 
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LESSON 4 


In lesson 1, you learned that standardized programming tis one of 
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the atms of the COBOL system. To thts end, the system provides 
standard language elements, standard entry formats, anda 
standard program structure. Lessons 2 and 3 concerned themselves 
with the COBOL language elements. In thta lesson, we wtll turn 
to the COBOL program structure. As in the preceding lessons, the 
emphasis witl really be on mastering the vocabulary of COBOL, tin 
preparation for further work with the language. This time, you 
will learn terms such as "diviston" and "section". And as before, 
I hope that you will not waste your time and energy memorizing 
the defintttons of these terms. Rather, your efforts should be 
dtrected toward learning to apply the definittons -- to recognize 
a ditvtston tn a program, for instance, and to perceive the 
relationship between dtvistons and sections. 


Find out how many dtvisions there are, their names, and their 
sequence. Determine how you would recognize the beginning of a 
dtvtston, section, and paragraph. Learn what distinguishes an 
entry. 


Reading assigment: PROGRAM STRUCTURE 
Divisions 
Sections 
Paragraphs 
Entries 
Sample division with structural 
units identified 


How many divisions are there in a COBOL program? 


four 


The four divisions are Data, Environment, Identification, and 
Procedure, but this is not their correct order. What is their 
correct order? 


Identification, Environment, Data, Procedure 
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The entries that comprise a COBOL program are divided into four 
divisions according to the purpose served by the entries. This 
allows the programmer to give his full attention to one division -- 
One set of entries -- at a time, instead of having to worry about 
the whole program at once. 


Since every program is divided into the same divisions, which 
always appear in the same order, it is easy for someone other than 
the author of the program to pick it up and know where to find 
whatever he is looking for. 


You can conclude that the standardized program structure is 
[an aid to program writers] [an aid to program readers]. 


an aid to program writers AND an aid to program readers 


Name the divisions of a COBOL program, in order. 


Identification, Environment, Data, Procedure 


As part of your reading assignment, you examined a sample 
division. Which division was it? 


Environment division (The first entry of the division gives the 
division name.) 


The beginning of a division is marked by a division header entry. 
What marks the end of a division? 

ee0e 
There is no special "end of division" entry. You know that the 


preceding division has ended when you come to the next division 
header entry. 


Every division header entry contains the word , and every 
section header entry contains the word A 


DIVISION; SECTION 
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Note that all header entrtes begin to the left of the broken 
vertical line on the program sheet, while all other entrtes are 
written to the rtght of the broken line. The rules that govern 
this are explained tin detail in the next course in this series. 
At this time, tt wtll suffice to say that the headers are brought 
out a little to the left for emphasis. 


You also note that each header, like every other entry, is 
terminated by a ; 


period 


There tse no "offictal" definition for "entry" tn COBOL, but the 
definitton gtven in the reference handbook does not contradtct 
anything you may later read tn other COBOL publtcattons. Most 
COBOL manuals refer to some entries as "entrtes", to others as 
"sentences", and have no term at all for still others. 
Throughout thie course, however, we will use the term "entry" 
in one, precise way. 


Which of these is a valid paragraph header entry: 


DATE-WRITTEN 
SEQUENCE=CHECK-PROCEDURE. 
FILE=CONTROL PARAGRAPH. 
MINOR=TOTAL PARAGRAPH. 


SEQUENCE-CHECK-PROCEDURE. 


DATE-WRITTEN tis an acceptable paragraph name, but ts not a valtd 
header entry because the pertod ts missing. (If looking for 
pertods seems to you like ptecking nits, let me assure you that 
one of the hallmarks of an effeettve COBOL programmer tis his 
metteulous attentton to the smallest detatls.) 
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wee Inasmuch as periods are so important to the compiler, it behooves 
us to be able to tell the difference between a period and a 
decimal point in an entry. A period is always followed by a 
space; a decimal point is never followed by a space. 


This distinction explains why a decimal point must never be 
written as the rightmost character of a numeric literal. How 
would the entry below appear to the compiler if the literal were 
written with a decimal point (66365.)? 


The entry would appear as two entries, MOVE 66365. and TO CONTROL- 
DATE. Neither of these "entries" would make sense to the compiler, 
of course, and both would be regarded as being incomplete. 


Wea The correctly written section header entry is 


INPUT-OUTPUT SECTION. 


INPUT/OUTPUT SECTION. 
INPUT-OUTPUT-SECTION. 


INPUT-OUTPUT SECTION. 


Wem Every section begins with a section header entry. There is no 
"section trailer entry", but you will know that you have passed 
the end of a section when you come to the next 


[division header entry] 
[section header entry] 
[paragraph header entry]. 


division header entry OR section header entry 


wae One of the divisions is too small and too simple to require 
sectionalizing. This division, which never contains sections, 
is the division. 


Identification 


System/360 COBOL 


Le) 


129 


131 


132 


(3/66) 


COBOL Program Fundamentals 


Although he is not required to do so, the programmer may, at his 
own discretion, choose to establish sections in the 
division of a program. 


Procedure 


The Data division contains sections, but not paragraphs. In 
place of paragraphs, the division contains entries arranged in a 
form that somewhat resembles an outline. Most of the entries in 
the Data division begin with numbers like 01, 02, etc. These 
numbers are definitely not paragraph headers; rather, as you 
already know, they are ° 


level numbers 


The only division that always contains both paragraphs and 
sections is the division. 


Environment 


The division that always contains paragraphs, and sometimes 
contains sections, is the division. 


Procedure 


There are always sections, but never paragraphs, in the 
division. 


Data 


There are always paragraphs, but never sections, in the 
division. 
ee°0e 


Identification 
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It ts necessary that you get a good idea of how dtvisions, 
seecttons, and paragraphs appear tn an actual program. For this 
purpose, turn to the CASE STUDY program at the end of the 
reference handbook, and locate the four dtvtstons. The next 
seven frames all refer to that program. 


The longest division in the case study program is the 
division. 


Data 


How many paragraphs are in the Identification division? 


four 


BEY§ How many paragraphs are in the Environment division? 


three (two in the Configuration section, and one in the 
Input-Output section) 


ikya How many paragraphs are in the Data division? 


none (The Data division never contains paragraphs.) 


What are the names of the sections of the Data division? 


File section and Working-Storage section 


How many sections are in the Procedure division? 


none 


(8/66) 44 


System/360 COBOL COBOL Program Fundamentals 


How many paragraphs are in the Procedure division? 


eight 


So far we have been looking at COBOL programs in bits and pteces, 
to become conversant with the elements that are found in programs, 
and wtth the structure of programs. From this point on, we are 
gotng to start paying more attention to the content of COBOL 
programs, and the meaning of vartous entrtes. In your next 
reading assignment, you will take an overall look at the four 
dtvtstons, to see what kinds of information each one contains. 


You should tearn to describe the kinds of information found tin 
the dtvtstons, to name the dtviston in which you would look for 
spectfted information, and to dtscuss how the divistons are 
related to each other. 


Reading assignment: PROGRAM CONTENTS 
Identification division 
Environment division 
Data division 
Procedure division 


EEY3 Their names are excellent clues to the kind of information in the 
divisions. So if you remember the names of the divisions, the 
rest is almost too easy. 


As its name indicates, the Identification division the 
program. The Environment division describes the machine 

for compiling and executing the program. The Data division 
describes the to be processed. And the Procedure division 
tells the to be followed in processing the data. 


identifies; environment; data; procedures 


While each division contains information of a different kind, all 
of the divisions have certain functions in common. For example, 
every division is intended, to a large extent, to inform people 
who read the program. However, the division that exists almost 
sOlely for that purpose is the division. 


Identification 
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The name of the game is "data processing", so all of the divisions 
have something to do with data. Only one division is called the 
Data division, though, and in it you would see the 


[assignment of data files to input-output devices] 
[breakdown of data files into records] 
{reading and writing of data files]. 


ONLY the breakdown of data files into records 


EZEH In which division would you look to find out: 


How the output records are organized? 

What actions will follow the processing of the last input 
record? 

What input-output devices are used in the program? 

What the name of the program is? 


Organization of records: Data division 
Actions: Procedure division 

Input-output devices: Environment division 
Program name: Identification division 


ERT) While the divisions work together as a team, each division is 
independent. That is, each has a separate and distinct role to 
play. For example, the Data division describes data files and 
records, but does not tell what input-output device will read or 
write the data. Assigning files to input-output devices is a 
job of the division. 


Environment 


ya Likewise, the Procedure division uses the names of data items, 
but does not describe the items. If you wanted to know how many 
characters a data item contains, or where the item appears 
within a data record, you would look in the division. 


Data | 
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mee Let's get more spectftc, by taking a closer look at each diviston. 
Remember that we are not concerned wtth the rules for composing 
program entries, even though -- unavotdably -- some of the rules 
will pop up tn our dtscusston. You are not expected to be able 
to wrtte a program at the conclusion of this course; only to be 
able to read a program, and comprehend what you read. The rules 
for program entrtes have some bearing on this, for they help you 
to realize the ways in which other programs may be dtfferent from 
the sample programs. 


Reading assignment: IDENTIFICATION DIVISION ENTRIES 
Sample Identification division 


re Although the sample Identification division given in the 
reference handbook occupies several lines, only a small part of 
it is actually required by COBOL rules. Determine which part is 
required. 


All of the other entries are optional, but very useful. They all 
fall tnto the category of "program documentation", and are well 
worth the few extra moments tt takes to write them. 
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Seven fixed paragraph names are mentioned in the reference 
handbook. Each name is a reserved word. The reference handbook 
makes it clear that 


the programmer must write a Program-Id paragraph and no 
more than six other paragraphs, for which he can 
invent names or use fixed names. 

no more than seven paragraphs may be written, and their 
names must be chosen from among the seven fixed names. 

the programmer is allowed to write more than seven 
paragraphs, provided that he uses reserved words for 
the names of the paragraphs. 


no more than seven paragraphs may be written, and their names 
must be chosen from among the seven fixed names. 


One paragraph, the Program-Id paragraph ts requtred. The 
programmer ts not allowed to invent names for the other 
paragraphs. Nor ts he allowed to use any reserved words for 
names of paragraphs in the Identification division, other than 
the seven fixed names that are provided. 


How many additional paragraphs might the sample division have had? 


two (Date-Compiled and Security) 


The program name, which is required to appear in the Program-Id 
paragraph, is the name by which the program will be identified 

on a job control card at the time that the object program is 
executed. Program name is an example of a special kind of 
non-numeric literal called an "external name". Like all non- 
numeric literals, external names are enclosed in quotation marks. 
Unlike other non-numeric literals (which can contain as many as 
120 characters), external names are limited to eight characters -- 
a letter followed by up to seven letters and/or digits. 
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There ts not much more that can be satd about the Identifteatton 
diviston, so we will go on to the Environment diviston. Here our 
sample divtston involves a card input file and a printed output 
file; however, the same sorts of entries are used for all 
sequenttally organized files, whether they are on tape, disk, 
card, or printer devtces. Additional entries, which we will not 
deal with in this course, are used for non-sequentially organized 
data files, on disk or other direct-access devices. 


Reading assignment: ENVIRONMENT DIVISION ENTRIES 
Sample Environment division 
System/360 model numbers 
Assignment of files to input-output devices 


Knowtng how to dectpher the model number and storage capacity 
codes in the Source-Computer and Object-Computer paragraphs is a 
minor, but useful bit of informatton. The actual model number is 
given, so only the storage capacity code represents a problem. 

An eastly solved problem, however, stnee you can look up the 
meanings of the code letters whenever you need them, 


Use the table of code letters in the reference handbook to 
interpret the sample Environment division. Both the source 
computer and the object computer are IBM System/360 Model ’ 
with a storage capacity of bytes. 


eee 
30; 65,536 


The prectse number of bytes in storage ts rarely useful to anyone. 
It ts sufftetent to know the approximate number. So, we 
generally talk tn terms of round numbers; for tnstance, the 
letter E can be said to stand for 32,000 (32K) bytes of storage. 
These code letters are used tn many references to System/360 -- 
not merely in System/s60 COBOL. Reference manuals, for example, 
may speak of "F compilers", by which they mean comptlers that 
require a system with 64K bytes of storage. One way to remember 
the approxtmate values of the code letters ts to remember that 
the table starts wtth C, whteh stands for 8,000 (8K). Then just 
double the number of bytes for each succeeding letter; Dis 16K, 
Ets 32K, F ts 64K, and so on. By this method, you will be off 
by several thousand bytes by the time you get to I, but at least 
you wtll know what ball park you are playing tn. 
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Turn to the Environment division of the case study program in 
your reference handbook. What is the source computer for that 
program? 


An IBM System/360 Model 50 with 128K (actually 131,072) bytes 
of storage 


GRY The File-Control paragraph of the Environment division is 
important because in it every input or output is assigned 
to an input or output : 


file (data file); device 


Each entry in the File-Control paragraph begins with the word 
SELECT, followed immediately by the file name. The file name is 


the name by which that file will be identified on a job 
control card. 

a name which indicates the type of input-output device 
used for that file. 

the name which that file is called in the Data and 
Procedure divisions. 

a name which has been filed with the Program Registrar 
in Washington. 


ee0e 
the name which that file is called in the Data and Procedure 


divisions 


The external name that appears in each SELECT entry is the 
job-control-card name for 


i file 
the device to which the file is assigned 

eee 
the file 
You encountered another external name earlter -- the program 
name gtven tn the Program-Id paragraph of the Identiftcatton 
dtvtston. ' 
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BEX The file name and the external name are, then, two names for the 
same data file. It is permissible for these names to be the 
same; however, external names are limited to eight characters, 
whereas file names (like all programmer-supplied names) may be 
up to characters long. 


30 


EP The SELECT entry below states that a file known as within 
the program will be called on a job control card. 


PARTS~EXPLOSION=-FILE; PARTS 


ESN The assigning of a file to a device consists of naming a device 
class and a device number. Which statement below gives the 
correct rule regarding device classes and numbers? 


Both device class and device number must be specified for 
every file. 

Device class must be given for every file; number is 
sometimes omitted. 

Device number is required for every file; device class 
may be omitted. 

Device class and device number are optional; both may 
be omitted. 


Device class must be given for every file; number is sometimes 
omitted. 


Device number ts sometimes omitted in order to make the program 
"device tndependent". Thts means that an object program may be 
comptled wtthout spectfytng exactly which input-output devices 
are to be used. The chotece of devices can then be made when the 
object program ts executed. 
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What are the three device classes? 


UTILITY, DIRECT-ACCESS, and UNIT-RECORD 


Magnetic disk devices are included in 
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[UTILITY] 


[DIRECT-ACCESS] 
[UNIT-RECORD]. 


BOTH UTILITY AND DIRECT-ACCESS (because they can read and 
write data both sequentially and randomly) 


In which device class or classes does each of the following 
devices belong? 


1. 
26 
3. 
4. 
5. 


IBM 2540 Card Read Punch 
IBM 7320 Drum Storage 

IBM 2403 Magnetic Tape Unit 
IBM 2302 Disk Storage 

IBM 1403 Printer 


1. UNIT- RECORD 

26 Both UTILITY and DIRECT-ACCESS 
3. UTILITY 

4. Both UTILITY and DIRECT-ACCESS 
5. UNIT-RECORD 
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We have seen that there are three classes of devices; UTILITY, 
DIRECT-ACCESS, and UNIT-RECORD. But our main concern is with 
data files rather than the devices used for reading and writing. 
Files basically fall into two categories: sequential and non- 
sequential. In sequential files, records are read or written in 
the order in which they are physically stored. In non-sequential 
files, records are not read or written in the order in which they 
physically appear on the storage medium. 


Sequential files can be assigned to all three device classes. 
Non-sequential files can be assigned only to DIRECT-ACCESS 
devices. This means that devices can be used only for 
sequential files, while devices can be used for both 
sequential and non-sequential files. 


UTILITY and UNIT-RECORD devices can be used only for sequential 
files, while DIRECT-ACCESS devices can be used for both sequential 
and non-sequential files. 


(Card files and printed files must be assigned to UNIT-RECORD; 
only these files may be assigned to this device class.) 


| sequential 
The file named in the entry below is a loa caamacial file. 


sequential (A file must be sequential if it is assigned to a 
UTILITY device.) 


As tt te used here, the term "sequential file" does not 
necessarily itmply that the recorde in the file are "tn sequence". 
It does mean that the records are read from the storage medium 
(for instance, magnetic tape) one after another, in the order tin 
which they appear; or that the records are written tn consecutive 
places on the storage medium. Note, however, that the records 
might be out of order as far as their control numbers are 
concerned; a simple example of this ts a file of unsorted records 
on magnetic tape -- these records will be read sequentially by 
the sort program, but they are not tm sequence. 
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. do 
SELECT entries Se not 


input or as output. 


specify whether a file is to serve as 


ee0e@ 
do not 


The file wtll be tdenttfted as tnput or output in the Procedure 
dtviston entry that "opens" the file (makes it ready for reading 
or writing). This arrangement makes it possible for the COBOL 
programmer to use the same SELECT entry itn at least a couple of 
programs -- the program that creates the file, and any program 
that uses that file as tnput. 


Read the SELECT entry below, and then answer the following 
questions. 


l. Is the file a sequential file, or a non-sequential file? Why? 


2. Is it an input file, or an output file? How can you tell? 
3. What class of device is assigned to the file? What specific 
device? 


4. What is the file's external name? 
5. What name will be used in the Procedure division to refer to 
the file? 


1. A sequential file, because it is assigned to a UTILITY device. 
2. There is no way of telling from the SELECT entry whether 
this is an input or output file; it would be necessary 
to examine the Procedure division of the program to 
see how the file is processed. 
3. UTILITY; specifically, magnetic tape units of the IBM 
2400 series. 
4. INVMST 
5. INVENTORY-MASTER 
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that is processed by the program, look at the Environment division 
of the case study program in the reference handbook. 


1. How many files are processed by the program? 

2. What are the file names? 

3. No device number is given for one of the files; what 
kinds of input-output devices might be used for 
this file? 

4. For each file, determine whether it is sequential or 
non-sequential. 


° two 

° BILLING-FILE, CUSTOMER-BILL-FILE 

° Magnetic tape, disk, drum, or data cell devices might be 
used for the BILLING-FILE. 

4. Both files are sequential. 


WN Fe 


A final word about sequential and non-sequenttal files: This 
course is restricted to COBOL programs that process sequential 
files. This has been done because the logte of sequential input, 
processing, and output ts familiar to even the beginning 
programming student -- whteh makes it possible for us to 
concentrate on COBOL instead of taking exeurstons into the worlds 
of systems destgn, data management, and so on, to explatn what 
the COBOL program ts trytng to accompltsh. 


Non-sequenttal file processing ts not necessarily more difficult 
to program tn COBOL than sequenttal file processing, but many 
people are unfamiliar with tite underlying principles. Besides, 
there are different methods of non-sequential file organtzattion: 
"indexed", "direet", and "relative" -- each wtth tts own 
processing logite. So, we will steer clear of non-sequential files 
in this course, just to keep your introduction to COBOL from 

betng complicated by too many other programming considerations. 
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Wan The Data division of most COBOL programs is quite a bit longer 
than the Environment diviston or the Identtificatton dtvtston. 
But don't get the tdea that this diviston ts harder to understand 
just because it ts longer. The fact is that the Data dtviston 
consists of many entries of similar types, repeated agatn and 
again; when you get the hang of one or two ttem description 
entrtes, for tnstance, you will be able to cope with most of the 
ttem description entries that you may find tn any program -- and 
these account for the bulk of the Data divtston. 


As you examine the sample Data divistons tn the reference hand- 
book, tt wtll be worth your while to read every entry 
tndividually, inetead of merely glancing at the page. That wtll 
help you to grasp the pattern of entrves. | 


Reading assignment: DATA DIVISION ENTRIES 
Sample Data division 
Another sample Data division, with 
entry types identified 


w/e File description entries are found in the section. 


File 


| File description entries are made up of 
[record descriptions] 


[item description entries] 
[descriptions of independent items] 


ee0e 
NONE of these 


File desertpttion entries are clearly separate from other entries 
and groups of entries in the division. 
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Record descriptions may appear in the 


(Working-Storage section] 
[File section] 


ee0e 
BOTH the Working-Storage section AND the File section 
The second sample Data division in the reference handbook 
tllustrates this. 
Record descriptions are made up of 
(file description entries] 
[item description entries] 
[descriptions of independent items] 


item description entries 


The descriptions of independent items are 


peony descriptions 
item description entries 


item description entries 


Review the two previous frames. Is it logical to conclude that 
record descriptions are made up of descriptions of independent 
items? 


eee 
No 
Record descriptions and independent ttem descriptions are 


separate and distinct parts of the Data diviston. This tis shown 
tn the second sample dtviston. 
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1178 | We have been dealing with several terms in looking at the make-up 
of a typteal Data diviston -- terms like "file", "record", "item", 
and "independent item". Each of these terms has a precise 
meaning that you will need to know before you can go further in 
your study of thte diviston. Along wtth the definittone of the 
above terms, I have ineluded definittons of other terms that you 
will be ustng very shortly, like "elementary ttem" and "group 
item", I don't want you to learn the definittons word for word; 
just make sure that you ean explain to yourself the dtfferences 
and similarities between the vartous terms. 


Reading assignment: SYSTEM/360 COBOL TERMS FOR UNITS OF DATA 


An item igs f@ Piece of data 
a storage area that will hold a piece of datayj °* 


a storage area that will hold a piece of data 


Thies ts a useful dtetinectton to make. What the COBOL programmer 
actually accomplishes tin the Data dtviston ts to reserve areas 

in which data will be stored while it ts being processed. The 
data ttself will change wtth each record that ts put in or out -- 
except tn the case of constants. 


BEY Suppose that an item named DATE is made up of three smaller items, 
MONTH, DAY, and YEAR. The three smaller items are not made up 
of still smaller items. 
In COBOL terms, DATE is 


a group item 
an elementary item 


while MONTH, DAY, and YEAR are 


group items 
elementary items| 


a group item; elementary items 
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ERIN A record is [a group item] [an elementary item] [not an item]. 


eee 
EITHER a group item OR an elementary item 


A record ts nearly always a group item, in that tt zonststs of 
smaller items. However, the programmer may sometimes decide to 
define a record as an elementary item; that is, he may choose not 
to describe any of the smaller items that make up the record, 

and treat tt as one big item. 


kya Earlier we noted that descriptions of independent items are 
separate from record descriptions in the Data division. The 
reason for this should now be clearer to you, since an 
independent item, by definition, is any item that is 
[not a part of the record] [not a record]. 


not a part of a record AND not a record 


Thus, there are three possible things that an item can be: 
1. a record 
2. a part of a record 
3. an independent item 


It is possible for an elementary item to fall into any one of 
these three categories. However, a group item can only be 


{a record] 
{a part of a record] 
{an independent item]. 


EITHER a record OR a part of a record 
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184, Any group item can be made up of elementary items and/or other 
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group items. For example, there might be an item called CATALOG- 
NUMBER which is made up of AVAILABILITY-CODE, SHIPPING-CODE, and 
WAREHOUSING-NUMBER. WAREHOUSING-NUMBER might be further sub- 
divided into WAREHOUSE-LOCATION, MANUFACTURER, PRIORITY, and 
BIN-NUMBER. One or another of these subdivisions might be still 
further subdivided. | 


Sooner or later, however, we will arrive at the point where no 
item can be subdivided any further. That is, any group item can 
ultimately be reduced to a group of items. 


elementary 


Perhaps this notion of items-within-items will be easier for you 
to see if we look at it from the opposite point of view. We can 
begin with a number of elementary items, and combine them into 
group items. The group items can then be combined into larger 
group items. When we have combined all of our items into one, 
all-inclusive group item, that item is called a é 


record 


By going one step further, and collecting an entire set of all 
similar records, we will create a 


rhe 
(file 


file 


In addition to data records, a file may include records 
which contain information about the file. 


eee 
label 


Label records (often spoken of stmply as "labels") are generally 
written at the beginning and end of a file. Labels are also 
written at the begtnning and end of each phystcal volume, 
espectally when a file oceuptes more than one volume; for 
tnstance, labels would be written at the begtnning and end of 
each magnetite tape reel tf the file occupied more than one reel. 
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When ten data records are written at one time by an output device, 
those ten records constitute a ° 


block 


Which statement is correct? 


A record must contain more than one item. 

A block must contain more than one record. 

A group item must contain more than one elementary item. 

An elementary item must contain more than one independent item. 


A group item must contain more than one elementary item. 


The fourth statement above tis rtdicutous, but the ftrst two verge 
on betng correct. However, a record may ttself be an elementary 
ttem (although most records are group ttems); and a block may 
econtatn just one record. When tt comes to blocks, there its a 
similar but conflteting term that you should watch out for: 
"blocked". Records are sometimes said to be "blocked" when two 
or more records are combined tnto one phystcal data unit. 

In COBOL, we do not use this term: instead, we have the term 
"block", which ts used only as a noun, meaning a phystecal data 
untt that comprises one or more records. 


In your next reading asstgnment, which deals with ftle description 
entries ("FD entries"), you wtll encounter several of the terms 
we have just defined. You may, of course, look back at the 
defintttons of terms whenever you need to. You wtll read many 
details about clauses of FD entries, but don't try to memorize 
these detatls. As you read about each clause, you should look 
for that clause in the sample FD entry, and tn the FD entries of 
the sample Data dtvtstons in the reference handbook. fry to 
explain the meantng of each clause to yourself. By the way, be 
sure to note that even the absence of a clause from an FD entry 
nas some signiftcance. 


Reading assignment: FILE DESCRIPTION ENTRY 
Level indicator 
File name 
RECORDING MODE clause 
BLOCK CONTAINS clause 
RECORD CONTAINS clause 
LABEL RECORDS clause 
DATA RECORD clause 


eee 
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EEXE A file description entry always gives the file name. We have 


192 


193 


previously studied file names (in lesson 4), because the file 
name also appears in a entry in the division. 


SELECT; Environment 


do not 
input or as output. 


FD entries en specify whether a file is to serve as 


ee0@ 
do not 


The level indicator and the file name are always required ina 
file description entry. Which clauses are always required? 


LABEL RECORDS and DATA RECORD clauses 


EIY3 The LABEL RECORDS clause in the FD entry below signifies that 
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there are 


[no label records of any kind in the file] 
(standard label records in the file, but no additional user labels] 
[non-standard label records in the file]. 


EITHER no label records of any kind OR non-standard label records 


If there are no label records (as in a ecard file), no further 
work ts requtred of the programmer. If there are non-standard 
labels, the programmer doesn't get off quite so easily, stnce he 
must provide for the tnput or output, and processing, of these 
records. Even though the handling of non-standard labels itis 
tnteresting, and often quite challenging, itt would take us out 
of our way to dtscuss how it ts done; suffice it to say that the 
programmer's life ts simpler when label records are standard. 
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The file described in the entry below contains 


[standard label records] 
[non-standard label records] 
[user label records]. 


BOTH standard label records AND user label records 


Whenever a programmer-supplted name appears tin the LABEL RECORDS 
clause, there are user labels tn additton to standard labels in 
the file. The user labels provide informatton about the file 
beyond that given tn the standard labels. 


Standard label records must meet the format standards spectftied 
by IBM for the System/360. These labels provide information 
used by the tnput-output control system (I0CS), and so are 
somettmes called "System standard" labels. 


Both user and non-standard label records are created and 

processed by the user. User (sometimes called "user standard") 
labels are those that meet certain minimum format standards 
spectfted by IBM; whereas non-standard (sometimes called "user non- 
standard") labels are those that do not follow IBM System/360 
standards. 


The DATA RECORDS clause [names] [describes] each kind of record 
in the file. 


names ONLY 


The three recording modes are ° 


V, F, and U 
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EITJ The letters Vv, F, and U stand for , respectively. 


yale) 


201 


yaey. 


variable length, fixed length, and unspecified length 


Block-length and record-length fields are found only in mode 


V 


The length of a mode U record is "unspecified" in the sense that 


there is no definite way of determining how many 


characters it contains 


the programmer has been given no idea of how long 

the record might be : 
the length is not specified in a record-length or 
block-length field 

the length might vary unpredictably anywhere from 
zero to infinity 


the length is not specified in a record-length or block-length 


field 


Variable length records are permitted in recording mode 


(v] [ 


F) [U]). 


BOTH V and U 


Which statement is true? 
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In 


In 


recording mode 
in each block. 
recording mode 
in each block. 
recording mode 
each block. 

recording mode 
each block. 


V, there must be more than one record 
U, there must be more than one record 
V, there must be only one record in 


U, there must be only one record in 


In recording mode U, there must be only one record in each block. 
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PLY} The names of the recording modes are a little deceptive. 
In particular, the mere fact that each block of a file contains 
one fixed-length record does not necessarily mean that the 
recording mode is F. Besides F, the recording mode for such a 
file might also be [V] [U]. 


eed 
EITHER V OR U 
However, thts chotce ts not avatlable for files that are assigned 


to UNIT-RECORD devices. The recording mode for unit-record files 
(card files and printer files) can only be F. 


In which mode or modes can there be one variable-length record 
per block? 


either V or U 


vate In which mode or modes can there be more than one variable-length 
record per block? 


V only 


yee True or false: Records written in mode V need not be variable- 
length. 


True. (Fixed-length records may be written in mode V.) 


“eee True or false: Records written in mode F need not be fixed- 
length. 


False. (Variable-length records cannot be written in mode F.) 
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Turn to the case study program at the back of the reference 
handbook, and locate the FD entry for the BILLING-FILE. The next 
five frames refer to that entry. 


How many records are in each block of the BILLING-FILE? 


five 


How many different types of records are in this file? 


one (BILLING-RECORD) 


Did the programmer make an error in omitting the RECORD CONTAINS 
clause? 


No. (It is permissible to omit this clause, for the compiler 
can determine how many characters the record contains from the 
pictures given in the record description.) 


The recording mode of the BILLING-FILE is 


mode V 
mode F 
not specified -- hence, mode U 
unknown 


mode V (Whenever the RECORDING MODE clause is omitted, the mode 
is V.) 
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PIFG Does the BILLING-FILE therefore contain variable-length records? 


No. Either fixed or variable-length records can be written in 
mode V. 


This particular file happens to contain fixed-length records. 
You could not tell that from the FD entry, however. You will 
Learn shortly how to recognize a variable-length record by its 
record desertptton. (Of course, if the recording mode had been 
F, you would have known at once that record length was fixed.) 


aR Now locate the FD entry for the CUSTOMER-BILL-FILE tin the case 
study program. The next three frames refer to that entry. 


How many records are in each block of the CUSTOMER-BILL-FILE? 


one (The BLOCK CONTAINS clause is omitted when there is only 
one record per block.) 


yVava How many different types of records are in this file? 


four (BILL-LINE-1, BILL-LINE-2, BILL-LINE-3, and BILL-LINE-4) 


vagy The recording mode of the CUSTOMER-BILL-FILE is F. Suppose that 
a record of the first type (BILL-LINE-1) contains 133 characters. 
From this you can conclude that 


[all records of the first type must contain 133 characters] 
{records of the other three types must also contain 133 characters] 
[every record in the file contains exactly 133 characters]. 


ALL of these statements are correct. In recording mode F, all 
records in the file are the same length. 
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LESSON 6 


When you examined the sample Data dtvistons in the reference 
handbook, you saw that there are comparatively few kinds of 
entries that make up the dtvtsion. First of all, there are the 
divitston and section header entries (DATA DIVISION, FILE SECTION, 
WORKING-STORAGE SECTION), whose meaning ts obvious. Next, there 
are ftle desertption entries, which we have just finished 
discussing in some detail. 


All remaining entries in the divtston are ttem desertipttion 
entrtes. These may either be found in record desertpttons, or 
they may be desertiptions of tndependent ttems. In this lesson, 
we wtll discuss the concept of a "record description" and tts 
relatton to the structure of a record. (You will study specifte 
detatls of ttem desertptton entries in Lesson 7.) 


Reading Assignment: RECORD DESCRIPTIONS 


How many record descriptions will you find in a Data division? 


One 
One for each file 
One for each type of record in each file 


One for each type of record in each file 


Suppose that a program is being written to process one input file 
and one output file. There are three types of input records, and 
one type of output record. Using "FD" to represent a file 
description entry, and "01" to represent a record description, 
the correct sequence of the File section for this program is 


FD, 01, O1, O1, FD, O1 


170, FD, O01, Ol, Ol 
01, 01, 01, O1, FD, FD 


FD, Ol, O01, Ol, FD O1 (The record descriptions for each file 
must follow right after the file description entry for that file. 
The input file need not have been described first, so FD, Ol, FD, 
01, 01, O01 is another correct sequence.) 
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A record description tells the structure of a record. It will 
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help you a great deal tn your study of COBOL tf you are able to 
visualize that record structure. Thts ts stmple to do -- once 
you know how; and probably the simplest way to do tt ts by making 
a drawing of the record. We will proceed to make such a drawing, 
based on the sample record descrtptton given tin the reference 
handbook under RECORD DESCRIPTIONS (your latest reading asstign- 
ment). Turn to that sample record description. 


We could draw vartous kinds of dtagrams to represent the record. 
The one I wtll develop here ts the one that seems to me to 
correspond most closely to the way the record descripttion itself 
ts organized. 


The first thing I wtll do ts draw a box that represents the whole 
record. A record, you wtll remember, is the most inclusive data 
ttem. It ts a storage area that will contatn data when the 
program ts executed. The name of thts particular record isa 
PURCHASING. 


PURCHASING 


The level number of this record, like all records, is ; 
eee 

01 
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E279 The record is now subdivided. This means that the same storage 
area that is known as PURCHASING is divided into smaller areas. 
In fact, certain parts of this storage area will be divided again 
and again, but the dividing is done one step at a time -- or in 
COBOL terms, one level at a time. The next level of this record 
is level 02. The three items at level 02 are ° 


ACCOUNT, STATUS-CODE, and TRANSACTION 


Wee This drawing shows how the record has been subdivided so far. 
The three ttems shown below coincide with the ortgtnal record. 


ACCOUNT 


STATUS -CODE 


TRANSACTION 
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P2TJ But we can still refer to the record as a whole by the name 
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PURCHASING, so I will put the original box back into the drawing 
that we are developing. 


The large box (on the left) and the three smaller boxes (on the 
right) represent 


two adjacent areas in storage 
two separate storage areas of equal size 


PURCHASING ACCOUNT 
STATUS -CODE 
TRANSACTION 


| bs same, identical area in storage 


the same, identical area in storage 


In a record description, an entry for a group item is followed by 
entries for the items that make it up. A group item comprises 
all the items described under it, until a level number equal to 
or less than the level number of the group item is encountered. 


This means that the items that make up a group item 
(must be described right after the group item] 
[must have level numbers that are equal to or less than the 
group item] 
[must have level numbers that are greater than the group item]. 


must be described right after the group item AND must have level 
numbers that are greater than the group item 
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In the record description on which we are basing our drawing, a 
level 02 item which is further subdivided is followed by items 
with level number 03 or greater. 


Which items defined at level 02 in this record description are 
further subdivided? 


ACCOUNT and TRANSACTION are further subdivided; STATUS-CODE 
is not. 


When level 03 is brought into our drawing, this is the result: 


Serer | eae a 
eee 
Ganka CODE 
TRANSACTION all 
PURCHASE 


BEI] Since STATUS-CODE is not further subdivided, it is 
an independent item 
a non-group item 


an elementary item 
a group item 


an elementary item 
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yea YOu can tell which items are group items and which are elementary 
items by examining the level numbers that follow them in a record 
description. Group items are followed by items with higher level 
numbers. Elementary items are followed by items with equal or 
smaller level numbers. 


Which of the level 03 items in our sample record description are 
group items? Which are elementary items? 


VENDOR and PURCHASE are group items; CATEGORY and NUMBER are 
elementary items. 


You may have noticed that there ts a level 04 ttem named NUMBER, 
and a level 03 ttem with the same name. Duplication of names is 
perfectly all right tn COBOL, as long as the names are "qualtftied" 
when they are used tn procedures, so the compiler wtll know 
prectsely which ttem ts betng referred to. Qualtftcatton ts done 
by naming the group item which the item wtth a duplicate name ts 
part of; in the record desertptton we are working wtth, the ttems 
would be qualifted by calling them NUMBER OF ACCOUNT and NUMBER 

OF VENDOR, to make tt clear which ts which. You will study the 
rules for qualifying names tn the next book of thts series. 


Here is our drawing with the level 04 items added. 


ore un eee) 
eee =f 
STATUS - palais 
TRANSACTION] | VENDOR oe 
== NUMBER 
PURCHASE = 
TE AMOUNT 


Which level 04 item is a group item? What items does it contain? 


LEVEL—> 


DATE is a group item, containing MONTH, DAY, and YEAR. 
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PEER Finally, we have a complete diagram of the structure of this 
record. In our diagram, the sizes of the boxes do not tndteate 
the stzes of the ttems; actually, NAME contains 25 characters, 
while STATUS-CODE contains just 1 -- but the boxes for these two 
ttems are the same size. The reason for this ts that we are not 
coneerned about the sizes of ttems at this moment. Instead, we 
are coneerned with the order itn which the items appear in the 
record, and how the ttems are related to each other. 


LEVEL—> 01 04 05 


PURCHASING ACCOUNT jcATEGORY | conv 
NUMBER 
STATUS -CODE 


TRANSACTION] | VENDOR = = 
[NUMBER | 
PURCHASE DATE [MONTH 
YEAR 


favour | 


The diagram shows us the breakdown of a record into group and 
elementary items. Any item that is divided into smaller items 
at the next level is a group item. An item that is not divided 
into smaller items is an elementary item. 


Pick out the group items and the elementary items in the record. 


ee0 

Group items Elementary items 
PURCHASING CATEGORY 
ACCOUNT NUMBER 
TRANSACTION STATUS-CODE 
VENDOR NAME 
PURCHASE NUMBER 
DATE MONTH 

YEAR 

DAY 

AMOUNT 
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PEZY Now let's put our diagram side by side with the record description. 


02 04 05 


AOTC ACCOUNT eareconr 4 ‘PUR ! | ING. 
ee ! | 7 = ae 
Gand — Pee ts fost Hee oe 
pe srais=clooe [— 
TRANSACTION] | VENDOR — ee asian 
es Wend } 
PURCHASE | | DATE ae : —? : a : 


Which statement best describes the sequence in which the item 
description entries appear? 


The level 01 entry appears first, followed by a level 02 
entry, then entries for the items contained within 
the 02 item; then another 02 entry, and so on. 

The level 01 entry appears first, followed by all of 
the level 02 entries, then all of the level 03 entries, 
04 entries, and 05 entries. 

The level 01 entry appears first, followed by a level 02 
entry, then an 03 entry; and then a rhythmic cycle is 
repeated: 02, 03, 04; 03, 04, 05; and so on. 


The level 01 entry appears first, followed by a level 02 entry, 
then entries for the items contained within the 02 item; then 
another 02 entry, and so on. 


PEER The item description entries are made 


in the sequence of the items in the record 


Fe any convenient sequence 
in numerical order by level number 


in the sequence of the items in the record 
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True or false: The higher the level number, the smaller the 
size of the item; for instance, a level 03 item is always 
smaller than a level 02 item. 


False. The level number and size of an item are two completely 
separate considerations. Earlier we noted that there was a 
one-character level 02 item in our record, as well as a 25- 
character level 04 item. 


The point made in the previous frame applies to items in general. 
But suppose we were dealing with a group item and the items that 
make it up. Then we would have a situation in which 


[the group item must be larger than any item within it] 

[the size of the group item is not related to the size of the 
items within it] 

[the size of the group item is equal to the sum of the items 
within it]. 


the group item must be larger than any item within it AND the 
size of the group item is equal to the sum of the items within it 


And, as we have already seen, the ttemse that make up a group ttem 
must have htgher level numbers than the group ttem. For example, 
tn the record that we have been working with, DATE (level number 
04) econtatns MONTH, DAY and YEAR (all level number 05); each of 
the level 05 ttems happens to contatn 2 digits, so DATE contains 
6 digtts. 


Some record descriptions contain entries that begin with level 
number 88. The reference handbook suggests that when you are 
analyzing the structure of the record, you can 


treat level 88 entries as if they were 01 entries 
deal with level 88 entries just the same as other entries). 
ignore the level 88 entries 
eee 
ignore the level 88 entries 
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Before we go on to look at the elauses that make up ttem 
description entries, I want you to try your hand at drawing a 
dtagram to represent the structure of a record. Turn to the 
sample Data division in the reference handbook whitch ts printed 
under the tttle, Another sample Data dtviston, wtth entry types 
tdentified. Draw a dtagram of the STOCK-TRANSACTION record. 

Make the same kind of dtagram that you have seen in the preceding 
frames. Use scratch paper. WNeatness doesn't count. 


02 03 04 


DISTRIBUTION- 
STOCK- STOCK-NUMBER | | 
TRANSACTION CENTER 
CONTROLLING- 
PARTY 
ACCOUNT-NUMBER 


SHIPPING- CODE 


Turn to the ftrst page of the case study at the back of the 
reference handbook. There you will find another kind of dtagram 
that ts sometimes used to show the structure of a record. The 
horizontal format of the dtagram is awkward in that we are 
forced to break off several times, but the sequence of ttems 
within the record ts easy to see, as is the subdivtston of ttems 
into smaller ttems. 


Although the levels of ttems are harder to see, some programmers 
prefer this sort of dtagram because tt corresponds more closely 
to the way the record would actually appear on tape or dtsk. 

On the next page in this textbook, the BILLING-RECORD has been 
dtagrammed using the verttecal format you have been taught. 
Compare the two kinds of dtagrams. 


Also, examine the record description of the BILLING-RECORD in the 
Data division of the case study program. It should be easy for 
you to pick out the ttem descrtptton entry for each of the ttems 
within the reeord structure. Simply keep tn mind that every ttem 
desertptton entry begtnse wtth a level number. 


N 
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ACCOUNT- 
IDENTIFICATION 


CREDIT-STATUS 


ACCOUNT-HISTORY 


LAST-YEAR 


THIS-YEAR-TO- 
DATE 


LAST-MONTH 


THIS-MONTH 


COLLECTION- 
HISTORY 


/ 


03 
TYPE-OF-ACCOUNT 


ACCOUNT-NUMBER 


BILLING-CYCLE 


CUSTOMER-NAME 
SiReET tDoneSS 
CITY-STATE 
RATING-CODE 
PURCHASE-LIMIT 
YEAR-OPENED 
YEAR-LAST-ACTIVE 
HIGHEST-BALANCE 
MONTHS-ACTIVE 
MONTHS-OVER- 90 
TOTAL-PURCHASES 
TOTAL-RETURNS 
MONTHS -ACTIVE 
MONTHS-OVER- 90 
TOTAL- PURCHASES 


TOTAL- RETURNS 


NUMBER -OF - 
TRANSACTIONS 


BALANCE-FORWARD 


BILLING -DATE 


NUMBER-OF - 
TRANSACTIONS 


CURRENT-BALANCE 


PURCHASES 


PAYMENTS 


CREDITS 


RETURNS 


[YEAR AST ACTIVE | 
wowres-aeTIve | 
[roraL-Punciases | 
Coal 
pemeerd! 
[ToTal-PuRcanses | 
frovaL-reTus | 
TRANSACTIONS | 
[TRANSACTIONS | 
a 
— 
ae 
il 


OVERDUE - 
BALANCES 


LAST-PAYMENT 


DUNNING - CODE 
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STORE-NUMBER 


FILE-NUMBER 


NUMBER 


AMOUNT 


NUMBER 


AMOUNT 


NUMBER 


AMOUNT 


NUMBER 


AMOUNT 


30-DAY 


60- DAY 


: 
i 


90-DAY 


120 -DAY 


DATE 


AMOUNT 
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LESSON 7 


This lesson looks at item description entries in detatl. Some 
ttem desertption entries are quite stmple, consisting only of a 
Level number and a programmer-supplted name. Others contatn one 
or more clauses, tn additton to a level number and a name. We 
will explore each clause in some depth. 


To keep you from betng swamped by a great many facts, the 
reading assignment has been chopped up tnto a number of little 
pteces. You will first read about the level number and name. 
Then, tn succeeding reading asstgnments, you wtll study the 
tmportant clauses one at a ttme. 


Reading assignment: ITEM DESCRIPTION ENTRIES 
Level number 
Name or FILLER 


(Do not go on to the USAGE clause yet.) 


Where would you look for the level number in an item description 
entry? 


At the beginning; a level number is always the first element of 
the entry. 


What level number signifies that the item is an independent item? 


77 


Which level number is associated with an entry that is not, 
strictly speaking, an item description? What type of entry is it? 


88; condition-name entry 


Condttton names wtll be dtsecussed in a later lesson. 


Where would you look for the name of an item? 


Just after the level number. 
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The word FILLER 
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is 


is saat a name. 


is not 


The word FILLER is most often used to indicate that a portion of 
a record contains no information. For instance, suppose that we 
are processing a file of punched cards, and that one of the card 
records contains only the current date plus an identifying code. 
The record description of the date card might look like this: 


4 DATE caRD. | 


This record description indicates that a card code is the first 
character of the record, with the current date in the next six 
positions. Even though there is no more data, it is necessary to 
show that the record is 80 positions long; in order to "fill out" 
the record, the programmer has defined 73 additional positions 
and has called them ° 


FILLER 
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Let's take a slightly different case. Suppose we are processing 
a file of magnetic tape records: Each record contains 200 
characters of data. The processing consists merely of splitting 
the file into two smaller files. The splitting is to be done on 
the basis of the control number in the first 12 positions of each 
record. If the control number falls within certain limits, the 
record is to be moved to one output area; otherwise, the record 
is to be moved to a different output area. 


Examine the record description below and decide whether the word 
FILLER has been used properly in this case. 


The use of the word FILLER in this record description is 


right, because there is no need for a procedure to refer 
separately to the data in the last 188 positions of 
the record. 

wrong, because the word FILLER can only be used for blank 
positions, never for positions that contain data 
characters. 

wrong, because there is no name by which a procedure can 
move all 200 characters of the record to an output area. 


right, because there is no need for a procedure to refer 
separately to the data in the last 188 positions of the record. 


The control number ts the only item within the record that wtll 
be examined separately by the program. The only other processing 
requtred its to move the entire record to an output area, and for 
that purpose a procedure wtll use the name COMMODITY-RECORD. 
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I think tt may be useful to pursue this "file-splitting" problem, 
to explore other aspects of tts solution, and especially to see 
what kinds of ttem description entries are involved. 


Suppose that the COMMODITY-RECORD ts to be written in files 
called PLANT-1-PRODUCTS-FILE and PLANT-2-PRODUCTS-FILE. The 
whole record ts moved to one file or the other with no changes 
being made to any of the itemsa in the record. Here tis what the 
file descrtiptton entry and the record desertptton might look litke 
for one of these files: 


The record description consists of a single item description 
entry that defines a storage area large enough to hold 200 
characters. The PLANT-1-PRODUCTS record is not subdivided at all; 
in other words, here is an example of a record that is treated as 
an item. 


elementary 


For the PLANT-2-PRODUCTS-FILE, we could have a file description 
entry and a record description almost exactly ltke the one shown 
above. The record for that file could be called PLANT-2-PRODUCTS. 


You can visualize statements in the Procedure division of this 
program, saying MOVE COMMODITY-RECORD TO PLANT-1-PRODUCTS or MOVE 
COMMODITY-~RECORD TO PLANT-2-PRODUCTS depending on the control 
number, 


Suppose that records whose control numbers range from 
809463552078 through 790084659302 are to be written in the first 
file, and all other records in the second file. These numbers 
are a little unwieldy, and the people in our firm don't go around 
with them on the ttpe of thetr tongues; it would mean more tf we 
were to say that the ftrst number ts the control number for 
wheelbarrows, and that the second is the control number for 
ptekup trucks. 
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To sum tt up, we would like to be able to write the following 
entry tn the Procedure diviston: 


ARTIE PLIANT-|2—PRIODUC|TS. 


The entry uses the name WHEELBARROW in place of 309463552078, 
and PICKUP-TRUCK in place of 790084659302. In order to use 
these names, they must be defined; the required item descriptton 
entries would look like this: 


at PilcTur|e 9 (112) 
__MALUIE 3/0946/3552I078.| 
PI CKIUP—TIRUCK|, PIL CTUIRE 91(12) 
__7i90084659/302.| 


From their level numbers, you can identify these entries as 
descriptions of items. 


eee 
independent 


These entries actually cause the values to be stored as constants. 
The procedural entry at the top of the page causes the control 
number of a rveeord to be compared wtth the constant values. 

We wtll have much more to say about procedural entries later 

tn thts book. 
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BEY during our brief look at the hypothetical "file-splitting" 
problem, we have seen several ttem descrtpttion entries. We wtll 
carry this just one more step further, by combining all of the 
entries into a dtviston, as they would appear itn a program. 


Before you proceed to the next frame, take some time to took 
through the above division. Be sure that you ean distinguish 
file description entries from item descrtptton entries. Be able 
to identify where each entry begins and ends. Recognize that the 
two secttons of the dtviston serve different purposes. 
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Now we will discuss the clauses that are found in titem 
descrtptton entries, beginning with the USAGE clause. We wtll 
concentrate on USAGE before gotng on to clauses such as PICTURE 
and VALUE, which you have seen in several item description entries. 
Although the USAGE clause has not appeared in the entries that 
you have seen, you wtll discover that every ttem has a 
parttcular usage -- even when the clause ts omitted. 


The reading asstgnment contains a number of specialized terms 
with whitch you are expected to be familtar: btts, bytes, 
floating-point, packed decimal, binary, hexadecimal, ete. Don't 
get the tmpresston that we are suddenly changing the rules of 
the game, and making COBOL "machitne-ortented"; we have stmply 
come to the potnt where the programmer must spectfy precisely 
how the data appears. Also, don't be concerned if you can't 
remember the exact definitions of these terms; as long as you 
have a general, idea of thetr meaning, you will get along fine. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
USAGE clause 
What the usage words indicate 


(Do not go on to the PICTURE clause yet.) 


must appear . 
yey 6hTHeE reserved word USAGE toed not appear} in a USAGE clause. 


need not appear 


yee Since the word USAGE may be missing, you must look for one of 
the five reserved words that specify the usage of the item. 
Those five words are . 


DISPLAY, COMPUTATIONAL, COMPUTATIONAL-1, COMPUTATIONAL-2, and 
COMPUTATIONAL-=3 


Which one of the five usage words may be omitted? 


DISPLAY 
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Match the list of terms below. (Two or more of the terms on 
the right may apply to a usage word.) 


COMPUTATIONAL-1 internal decimal 
COMPUTATIONAL~2 external decimal 
DISPLAY packed decimal 
COMPUTATIONAL=3 binary-coded decimal 
COMPUTATIONAL binary 

floating-point 

EBCDIC 

BCD 

ee0@ 


COMPUTATIONAL-1 and COMPUTATIONAL<-2 = floating-point 

DISPLAY = external decimal, binary-coded decimal, EBCDIC, BCD 
COMPUTATIONAL-3 = internal decimal, packed decimal 
COMPUTATIONAL = binary 


The baste tdea should be clear to you: In System/360 COBOL, 

we can process data in ftve different formats. Thus, we can take 
advantage of the flexibtlity of data representatton that ts 
built into the Syetem/360. It ts not our purpose in thts course, 
though, to diseusse the reasons for having different data codes, 
nor to explatn which codes are best for whitch purposes -- those 
are "system destgn" considerations, not COBOL constderattions. 


The questton that we want to tackle ts, how can you frgure out 
what the usage of an ttem ts by readtng the ttem descrtptton 
entry? Sometimes the answer ts simple; for example, tf the entry 
says COMPUTATIONAL-3, there ts no doubt at all -- the data ts in 
packed decimal. But what tf there ts no usage word in the entry, 
as tn the entry below? What ts the data code tn that case? 

We wtll explore this next. 


There are two key facts to keep in mind. The first is that the 
usage specified for a group item 


applies to the first item in the group, but not to the rest 


has no bearing on the usage of the items in the group 
applies to all of the items in the group 


applies to all of the items in the group 
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| 260 | The second fact is that when no usage at all is specified for an 
elementary item or for a group it is part of, 


the usage can be any one of the five possibilities 


| eh item has no usage 
the usage is assumed to be DISPLAY 


the usage is assumed to be DISPLAY 


yum SO, if no usage is specified for an elementary item, the first 
thing to do is to see if usage has been specified for a group 
item that this item is part of. What is the usage of AMOUNT- 
PAID in the illustration below? 


lalYMEINIT],| IcloMeluirialrionla sl. TTT TTT TTT 
31 | JAMOUINITOlUIE!,| |PiticiTlulRe! |si9i(iel) visio! | | | 


_fol3!_| Jamoulnitplalifol,| iPliiciriure} Isislle)»vilal.| | | 


COMPUTATIONAL-3, because that is the usage of the group item 
that AMOUNT-PAID is part of; AMOUNT-DUE has the same usage. 


yiye EXamine the item description entry below, and then select the 
most accurate statement regarding the usage of the item. 


[elzl | idrlolulel—irlofriau] [TTT efiicirfulriel [slollely vols]. TTT TTT 


Since no usage has been specified for this item, it must 
be DISPLAY. 

To determine its usage, you must see the entry for the 
group item it is part of. 

This item has whatever usage is specified for the record 
it is part of. 

There is no way of determining its usage without a large 
crystal ball. 


Since no usage has been specified for this item, it must be 
DISPLAY. 


The level number informs you that this ts an tndependent item, 
and therefore not part of a group item. What we have here, 
then, ts a self-contained item desertption entry; there tis 
absolutely no potnt tn looking at the desecrtpttons of any other 
ttems to find out the usage of an tndependent item. 
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The record description below seems to indicate conflicting 
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usages. No usage is specified for the group item, nor for most 
of the items within the group, yet one of the items within the 
group is COMPUTATIONAL. 


There is really no conflict. It is permissible for items within 
a group to have varying usages. Avoid the misimpression that the 
usage of a group item must be DISPLAY unless otherwise specified; 
in fact, the usage of a group item is the same as the combined 
usages of the elementary items it contains. Thus, the usage of 
STOCK-TRANSFER in the example below is 


DISPLAY, since that is the only specified usage 


COMPUTATIONAL, since that is the only specified usage 
part DISPLAY and part COMPUTATIONAL 


UN i tls-OF 


eee 
part DISPLAY and part COMPUTATIONAL 


There would be a conflict only tf one usage were specifted for 
the group item, and a different usage were spectftied for the 
elementary ttems wtthin the group -- for example, tf the word 
DISPLAY had actually been written in the level Ol entry above. 
Such a econfltet, tnetdentally, would be dtagnosed as a programmer 
error by the COBOL compiler. 


90 


System/360 COBOL COBOL Program Fundamentals 


264 


(3/66) 


When you are trying to figure out the usage of an elementary 
item whose description does not contain a USAGE clause, you first 
look for a USAGE clause in the description of a group item that 
contains the elementary item. If you don't find a USAGE clause 
in those item description entries, you can conclude that the 
usage is DISPLAY. 


It will be useful to keep in mind what you have already learned 
about the structure of records, in particular the idea that items 
can be subdivided several times. Or, from another point of view, 
that an item can be part of several group items. In the example 
below (which you may recall seeing before), MONTH is part of 
DATE, which is part of PURCHASE, which is part of TRANSACTION, 
which is part of PURCHASING. In other words, the elementary item 
MONTH is part of four group items. 


There is no USAGE clause in the item description entry for MONTH, 
so we must look for a USAGE clause in the description entries for 
all of the group items of which MONTH is a part. Since we find 
no USAGE clause in any of these entries, we know that the usage 
of MONTH must be . 


DISPLAY 
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Next, the PICTURE clause. You have seen PICTURE clauses in 
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every record description, though not tn every ttem description 
entry. PICTURE clauses are easter to tdentitfy than USAGE 
clauses, since they always contain the reserved word PICTURE. 
Also, PICTURE clauses cannot opttonally be omitted, as USAGE 
elauses sometimes can; the rules are eut and dried -- there must 
be a PICTURE clause actually written in certain cases, and in all 
other cases there must not be a PICTURE clause. 


Learn which item description entries must contain pictures, and 
what you can tell about an item from its picture. Spend a little 
extra time with the six common picture characters that are 
explained in the reference handbook. Also note -- but don't try 
to memorize -- the relationship of picture and usage. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
PICTURE clause 
How to identify an item from its picture 
What some common picture characters mean 
How picture and usage are related 


(Do not read about the VALUE clause yet.) 


ee0e 
always 
Group items sometimes have pictures. 
never 
ece0e 


never 


Pictures are required in the item description entries of 


all elementary items 

all elementary items except those that are only one 
character long 

all elementary items except internal floating-point items 


all elementary items except internal floating-point items 
(that is, all except COMPUTATIONAL-1 and COMPUTATIONAL-2 items) 
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From a picture, you can tell what category an item falls into 
(alphanumeric, alphabetic, numeric, etc.), how many characters 
the item contains, and what kinds of characters they are. 


From the picture in this entry, determine the category of the 
item, as well as the number and type of characters. 


alphanumeric; 4 characters; may be letters, digits, special 
characters, or spaces 


The usage of SHIPPING-ROUTE (see entry in previous frame) 


can be determined only by looking at the entries for 
the group items that contain this item 

is most likely to be COMPUTATIONAL because shipping 
routes are generally numbers 

must be DISPLAY because alphanumeric items can only 
have DISPLAY usage 

must be COMPUTATIONAL-3 (packed decimal) because the 
picture characters are packed together 


must be DISPLAY because alphanumeric items can only have 
DISPLAY usage : 


Translated from COBOLese, this means: the only data code tin 
whieh alphanumeric characters can be stored in the System/360 

te BCD (or tf you prefer, EBCDIC or external decimal). 

All other ways of representing data tn System/360 (binary, packed 
decimal, and internal floating-point) can be used only to store 
numerte data. | 


The fact that SHIPPING-ROUTE is alphanumeric means that the 
item may contain 


{a number, such as 1234] 
[letters, such as QWTG] 
[a combination of characters, such as EC25] 


a number, such as 1234 OR letters, such as QWTG OR a combination 
of characters, such as EC25 
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The preceding frame makes the point that "alphanumeric" ts a 
eateh-all eategory, and that the data stored tn alphanumertec 
items may be numeric, alphabettc, or mixed. This fact sometimes 
Leads beginning programmers to jump to the coneluston that they 
ean define all data items as alphanumeric. Why should they 
bother with As and 98 and all those other symbols, when Xs can 
stand for any characters tmaginable? 


Briefly, the answer ts that an ttem's picture affects the way the 
item can be processed. For tnstance, an ttem can be tnvolved in 
an artthmettie operation only tf tt te a numeric ttem. Also, only 
numeric data can be moved tnto a report ttem; that ts, only 
numerte data can be edtted (punctuated). Stmtlarly, data eannot 
be moved from an alphanumeric ttem tnto a numerte item. All of 
these examples show how important tt ts for the ptcture to be an 
aecurate desertption of a data item; tn particular, how tmportant 
tt tse to distingutsh between "any old characters" (represented 

by Xs) and "dtgits" (represented by 9s). 


Rules of the sort that have just been menttoned are discussed in 
later books of thts sertes. In this book, we are concerned wtth 
what ptetures look ltke and what they mean, not wtth the whys and 
wherefores of compostng pictures. 


Which of these might be the picture of a numeric item: 


[99,999.99] [99V99] [9(6)] [99099099] [+9999] [S9(8)]. 


99V99 OR 9(6) OR S9(8) (All the rest are pictures of report 
items. ) 


If an item's picture is 9999V999, how many digits does the item 
contain? How many decimal places? 
ee0e 
seven digits; three decimal places 
The actual value of the number in storage might be 1234567. 
The item in storage does not contain an actual dectmal potnt 


character, but because of the V tn its pteture, that value would 
be treated as tf tt were 1234.567. 
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yea Suppose that the actual number stored in an item is 3975. As 
what value would this number be treated if the item's picture 


were: 
l. 9 (4) 
2. P(4)9 (4) 
3. 999V9 
4. 9999PPV 
De V9 (4) 


l. 3975 (No assumed decimal point or assumed zeros are 
indicated, so the value is treated as a whole number; the 
result is the same as if the picture were 9999V). 

2. -00003975 (This picture might also have been VP(4)9(4), 
but the V is not necessary since its presence is implied 
by the Ps. The Ps say, in effect, "the assumed decimal 
point is located four positions in front of the first 
actual digit"; thus, there are four assumed zeros. 

3s 397.5 

4. 397500 (This picture might also have been written as 
9999PP, without the V.) 

55 3975 


YEH Although group items do not have pictures, you can figure out 
what a group item looks like by examining the pictures of the 
elementary items that make it up. From the entries below, you 


can determine that ACCOUNT-NUMBER is a -~digit item made 
up Of STORE-NUMBER, which is a -digit item, and 
FILE-NUMBER, which is a -digit item. 
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that will be stored in BALANCE is 


6 (Each 9 represents a digit; neither S nor V represents a 
character in storage.) 


The item illustrated in the previous frame has COMPUTATIONAL 
usage; therefore, the data code in which the digits will be 
stored is binary. Instead of merely saying that BALANCE contains 
six digits, it would be more accurate to say that BALANCE 
contains 


six binary digits 
the binary equivalent of six decimal digits . 
six digits in binary-coded decimal (BCD) format 
eee 


the binary equivalent of six decimal digits 


When usage ts COMPUTATIONAL, the data ts stored in "true btnary" 


form, not tn bitnary-coded dectmal (BCD) -- which, after all, ts 
what we call DISPLAY usage tn COBOL. It takes far more than six 
binary digits -- tn faet, tt takes twenty btnary digits -- to store 


the equivalent of six dectmal digits. 


For the most part, COBOL programmers are not concerned wtth data 
codes, or with bite and bytes in storage. Instead they "think 
dectmal" -- even when they are dealing with packed decimal on 
binary data ttems -- because the 9s tn a picture represent 
deetmal digits. 
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We have spent a generous amount of time studying the USAGE and 
PICTURE clauses. The remaining clauses, VALUE, OCCURS, and 
REDEFINES probably deserve equal time, but tt would take us a 
Little afteld -- into topics such as data tables -- tf we were 
to explore them thoroughly; therefore, we will limit ourselves 
to a brief look at the final three clauses. 


Your objective ts to learn how each clause appears, and what it 
means; not to learn the appltcattons for which a programmer would 
use tt -- except tn the most general sense. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
VALUE clause 
OCCURS clause 
REDEFINES clause 


One use of the VALUE clause is in level 88 (conditton-name) 
entrtes. We will ekip over this use for the time being, until a 
Later lesson tin this book. 


Another use of the VALUE clause is to assign initial values to 
constants or work areas in storage. Entries that use the VALUE 
clause in this way are not allowed in the File section; you 
would look for them in the section of the Data division. 


ee0 
Working-Storage 


This its the reason behtnd COBOL's ban on VALUE clauses for ttems 
in the File sectton: Items deseritbed in the File sectton | 
constitute input or output records. The values of such items are 
not expected to be constant; they wtll vary with each record that 
ts processed. For tnstance, each time an input record ts read, 

a value enters each of the ttems in the record. There ts there- 
fore no good reason to asstgn tntttal values to those ttems; to 
do that would only mislead some programmers into thinking that 
the tntttal values would remain constant. 


In a VALUE clause, the word VALUE (or VALUE IS) is followed 
by ° 


a literal 
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Even though both examples of VALUE clauses in the reference 
handbook show numbers as literals, any valid literal may appear 
in a VALUE clause. The example below uses letters and spaces 
for the literal value. 7 


As you might have expected, the literal in the VALUE clause must 
be consistent with the picture of the item. In the example above, 
the picture tells us this is an alphabetic item containing 15 
characters; hence, the literal must be non-numeric, and must 
contain no more than 15 letters and/or spaces. 


If an item happened to be COMPUTATIONAL, and its picture was 


S9(7)V99, you can guess that a literal would have to be 
used in the VALUE clause. 


numeric 


BT29 Another acceptable format of the VALUE clause makes use of 
reserved words such as ZERO and SPACE. Here is an example: 


Farlier, you learned that ZERO is a 


literal constant 
reserved constant 
numeric constant 
figurative constant 


figurative constant 


In an OCCURS clause, the word OCCURS is followed by a 
literal. 


numeric (more specifically, the numeric literal must be an 
unsigned whole number) 
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The OCCURS clause specifies how many times an item appears, in 
sequence, in storage. The entry below describes a situation in 
which an item appears in storage 12 times in a row. That is, 
there are 12 items, each one named MONTH, and each one containing 
(how many?) _ letters and/or spaces. 
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When an item's name is followed by the word REDEFINES, an area of 
storage is not reserved for the item; rather, a second name is 
assigned to a previously defined item. 


Examine these entries, and answer the questions below. 


1. For which item will an area of storage be reserved? 

2% For which item will a new area of storage not be reserved? 

3; By what two names will the originally reserved area of 
storage be known? 


dive An area of storage will be reserved for PURCHASE. 

2% A new area of storage will not be reserved for REFUND. 

34 The area of storage originally reserved for PURCHASE will 
be known both as PURCHASE and as REFUND. 


This ts an example of an ttem that has a dual purpose ina record. 
Sometimes the item contains the "purchase" amount, and sometimes 
the "refund" amount. We would suppose that a code somewhere tin 
the record tndicates whether the transactton ts a purehase ora 
refund; based on that code, the program procedures would do 
something etther wtth PURCHASE or with REFUND. Note that, tn 
this case, tt ts just a matter of having two names for an ttem, 

so the appropriate name can be used in procedures. 
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LESSON 8 


At last we have arrtved at the final dtviston, the Procedure 
dtvtston. To some people the Procedure diviston represents 

"the program", for tt consists of procedures which the computer 

ts to follow tn processing the data. The entrtes tn thts diviston 
are very stmilar to English, so they will be easter for you to 
comprehend at once than some of the Data dtviston entrtes were; 
also, there ts very little in the way of spectal COBOL terminology, 
as compared wtth the multitude of special terms that popped up 

tn your study of the Data division. 


To be sure, there are a few such spectal terms, and the ftrst one 
that you wtll come across tis "procedure", In this reading 
asstgnment, you will examine a sample Procedure dtvtston, and 
then you will learn exactly what we mean when we use the word 
"nrocedure" in talking about COBOL. At the same time, you will 
learn what we mean tn COBOL by "sentences" and "statements". 


Reading assignment: PROCEDURE DIVISION ENTRIES 
Sample Procedure division 
PROCEDURES 


The six header entries that appear in the sample Procedure division 
in the reference handbook are - (Refer to the handbook, you 
were not expected to remember this, of course.) 


PROCEDURE DIVISION. 
BEGINNING-OF-JOB. 
DETAIL—~PROCESSING. 
READ-NEXT~CARD. 
TOTAL~ROUTINE. 
END-OF-JOB. 


You will recall that the structural units of COBOL programs are 
divisions, sections, paragraphs, and entries. 


The first of the six header entries you have just looked at is 
a header entry. The other five are header entries. 


division; paragraph 
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Pi Each paragraph in the Procedure division is called a 


sentence 
procedure). 
statement 


procedure 


yaten In addition to paragraphs, the word "procedure" applies to 
in the Procedure division. 


sections 


PIR A "sentence" is any Procedure division entry that is not a 


entry. 
eee 
header 
424 Like all entries, a sentence must be terminated by a. 
eee 
period 
Yee A procedure must contain 
| one sentence, or less 
one or more sentences . 
more than one sentence 
eee 


one or more sentences 


yera Since a procedure might contain just one sentence, the shortest 


1 
imaginable procedure would contain | entries. 
3 


2 (a header entry in addition to a sentence) 
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The entry below calls for three actions: READ... CLOSE... and 
GO TO... The COBOL term used for a specification of action, such 
as READ OLD-MASTER, is 


phrase 
clause 


statement 
sentence 


statement 


The complete procedure entry illustrated in the preceding frame 
is called a _ ‘ 


sentence 


Each statement begine with a procedural word, like ADD, MOVE, ete. 
Most procedural words are verbs, though one of the most important 
words -- IF -- is technically a conjunetton. The reference hand- 
book lists the seventeen most commonly used procedural words in 
alphabetical order, but for study purposes we will look at just a 
few words at a time. To begin with, you will read about four 
tnput-output verbs. Your objective ts to learn enough about each 
verb to be able to read and comprehend statements using that verb. 
Keep tn mind that you are not expected to be able to write 
original etatéments yet, so don't try to memorize the format 
rules. 


Reading assignment: PROCEDURAL WORDS 
OPEN 
READ 
WRITE 
CLOSE 


(Be sure to read the summaries of these 
verbs itn this sequence.) 
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EXT3 Before a record may be written in a file, it is necessary to 


READ 
OPEN the file. 


CLOSE 
eee 


OPEN 


BX A CLOSE statement is required after processing is completed for 
[input files] [output files]. 


input files AND output files 
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Eff] The flowchart below shows the overall logic of processing 
sequential files. In this example, there is one input file and 
one output file. For simplicity's sake, an output record is 
written for every input record. 


PROCESS INPUT 
RECORD AND 
MOVE DATA INTO 
OUTPUT RECORD 


STOP RUN 


WRITE 
AN OUTPUT 
RECORD 


This processing logic applies to sequential files that are stored 
on [magnetic tape] [magnetic disk] [punched cards] [printed forms]. 


eee 
ALL of these storage media 


Printed forme could serve only for the output file, of course, 
while the other media could serve for both input and output. 
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302 
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The flowchart you just looked at contains a decision block 
testing whether the end of the input file has been reached. 
This AT END test is a clause of the 


READ 


WRITE 
OPEN statement. 


CLOSE 


eee 
READ 


Which input-output statement is generally acted on at the 
beginning of a run? At the end of a run? 


eee 
Beginning: OPEN; end: CLOSE 


OPEN and CLOSE statements are acted on once for each 
whereas READ and WRITE statements are acted on once 


file 


file 
record| ’ 


for each tea 


eee 
file; record 
Turn to the Procedure dtviston of the case study program in the 


reference handbook. The next six frames all refer to the case 
study program. 


What is the name of the procedure in which the files are opened? 


START-PROCESSING 
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What is the name of the input file? What is the name of the 


307 


308 


309 
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output file? 


eee 
BILLING~FILE; CUSTOMER-BILL-FILE 


When these files were named tn the Environment diviston and 
desertbed in the Data dtvision, no tndicattion was gtven as to 
which file would be used for input, and whieh for output. The 
OPEN statement ts where this ts specitfted. Thts arrangement 
permits the same Envtronment and Data dtviston entries to be used 
tn other programs, where for instance, the input file of thts 
program mtght be the output ftle. 


Find the READ statement. What procedure is the computer told to 
go to when the end of the input file is reached? 


eee 
END-OF-RUN 


Find the procedure named END-OF-RUN. What does the first 
sentence of that procedure say? 


CLOSE BILLING-FILE, CUSTOMER-BILL-FILE. 


Both the OPEN and CLOSE statement gives the names of two files; 


however, the OPEN statement tells which file is and which 
is , while the CLOSE statement does not. 
ee0e 


INPUT, OUTPUT 


How many WRITE statements are there? 


four 
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EIR vow let's go back to read about a couple of other procedural 
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314 
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words that deal with tnput and output. Determine the dtfference 
between these new words and READ and WRITE. , 


Reading assignment: PROCEDURAL WORDS 


ACCEPT 
DISPLAY 
eee 
ACCEPT and DISPLAY are used for reading and writing , not 
for ; 
eee 


low-volume data; (not) files of data 


What is the maximum number of characters that can be read by an 
ACCEPT statement, and written by a DISPLAY statement? 


maximum for ACCEPT: 80; maximum for DISPLAY; 120 


ACCEPT and DISPLAY statements are used to receive information 
typed in on the console typewriter keyboard, and to type out 
information on the typewriter. For this use, the number of 
characters that can be read or written cannot exceed j 


72 


Now that you have seen the verbs that fall tnto the "tnput-output" 
category, let's look at the "data movement" category. Thte 
category has just one baste verb: MOVE. You will find that thte 
verb can do three matn things, though not necessarily all three 

at one time. 4 


Reading assignment: PROCEDURAL WORDS 
MOVE 
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Ell A MOVE statement can ’ , and data. 
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move, convert, edit 


Most people find a MOVE statement easy to understand, but let's 
take a moment for you to double-check your understanding of it. 
In the sentence below, what would you say is the name of the 
“source field" -- the item from which data is to be moved? 

What is the name of the "receiving field" -- the item to which 
the data is to be moved? 


CATALOG-NUMBER is the source field; CONTROL-ITEM is the 
receiving field, 


When the COBOL compiler generates machine language instructions 
for a MOVE statement, it refers to the descriptions of the items 
to be moved as given in the Data division. The item descriptions 
will indicate to the compiler how many characters are to be 
moved, what the usage of each item is, etc. 


In reference to the MOVE sentence printed in the previous frame, 
suppose that CATALOG-NUMBER is a binary item (that is, its USAGE 
IS COMPUTATIONAL). And suppose that the usage of CONTROL-ITEM ; 
is DISPLAY. In this case, the compiler will generate the 
instructions required not only to move CATALOG-NUMBER to 
CONTROL-ITEM, but also to convert the data from (which item?) 

to external decimal (BCD) code. 


eco 
CATALOG-NUMBER 
A MOVE statement would cause data to be edited if the of 
the receiving item identified it as a report item. 
| ee0e 
picture 
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"Arithmetic" ts a larger category: five verbs. An tnteresting 
thing about thts group of verbs ts that one of them can replace 
the other four. It would be possible, then, to use just one 
arithmette verb for all arithmetic statements; however, you will 
have a took at the other four verbs as well. 


Reading assignment: PROCEDURAL WORDS 
COMPUTE 
ADD 
SUBTRACT 
MULTIPLY 
DIVIDE 


Which verb can be used for all arithmetic operations? 


COMPUTE 


Whereas other statements use words like ADD, SUBTRACT, etc., to 
specify arithmetic operations, COMPUTE statements use to 
specify operations. 


arithmetic symbols 


Notice that a COMPUTE statement not only computes a value, but 
also edits that value if the result is to be put into a report 
item. In the example below, into which item will the result be 
put? How could you tell if it is a report item? 


The result will be put into RATE (the item named after the verb). 
To find out if RATE is a report item, you would have to know 
what its picture is. 
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kyr A DIVIDE statement might have been used to do the calculation 
specified in the COMPUTE statement above. In order to obtain an 
edited result, the DIVIDE statement would have to contain a 
clause. 


GIVING 


Is this DIVIDE statement equivalent to the COMPUTE statement 
illustrated above? 


No. The correct equivalent would be DIVIDE TIME INTO DISTANCE 
GIVING RATE. 


In the COMPUTE statement, the formula DISTANCE/TIME would be 
read "distance dtvided by time"; the meanings of artthmetic 
symbols are given tn your reference handbook under the topte 
SYMBOLS. 


wim A significant difference between COMPUTE and other verbs is that 
a COMPUTE statement can call for more than one kind of arithmetic 
operation. Name the operations that are called for in this 
statement. 


multtplteatton dtviston 


COMPUTE CAPACITY = (UTILITY * SPAN) / 
(RANGE + CONSUMPTION ¥* EFFICIENCY). 


addition multtpltcatton 
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ADD, SUBTRACT, MULTIPLY, and DIVIDE statements perform only the 
type of arithmetic operation specified by the verb. Furthermore, 
MULTIPLY and DIVIDE statements operate on only two numbers; they 
multiply one number by another, or divide one number into another. 


ADD and SUBTRACT, however, can Operate on 


only two numbers 


only one number 
more than two numbers 


more than two numbers 


An operation that can be done with a COMPUTE statement, but cannot 
be done by any of the other arithmetic verbs is : 


exponentiation 


Exponenttiatton ts the ratsing of a number to a certatn power. 

To be sure, you can square a number (ratse tt to the second 
power) using a MULTIPLY statement -- multtplyitng the number by 
ttself. But htgher powers would requtre several MULTIPLY 
statements; and tf the exponent varted, MULTIPLY statements would 
be hard to use. 


Another important category of procedural words ts "sequence 
control", These words enable the programmer to control the 
sequence in which other statements or procedures wtll be acted on 
by the computer. There ts IF, whtch permtts different acttons on 
the basis of a test-conditton; GO TO and PERFORM, whtch cause 
branching; and STOP, whitch delays or halts the run. 


You should get a general tdea of the functton of IF by reading 

the summary tn the reference handbook; however, we wtll postpone 
our dtscusston of IF until the next lesson, when we wtll study tt 
tn detatl. We wtll dtseuss GO TO, PERFORM, and STOP at thts time. 
Make sure that you are able to descrtbe the dtfference between 

GO TO and PERFORM. And learn what the two types of STOP state- 
ments are, and how you would tell them apart. 


Reading assignment: PROCEDURAL WORDS 
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statement 
A GO TO statement causes a branch to a /sentence : 


procedure 


procedure 


A GO TO statement contains the name of the procedure to which a 
branch is desired. You can see that this name must be the same 
as the name given in the entry of the procedure. 


header 


Kye How does a GO TO differ from a PERFORM? 


A PERFORM causes a branch to a procedure or series of procedures, 
just as a GO TO does. But after the procedure or procedures are 
acted on, PERFORM causes a return branch to the statement after 
the PERFORM statement. 


cKee The flow of control through procedures, and further study of GO 


TO and PERFORM, wtll be taken up in the next lesson. 


term There are two kinds of STOP statements. One stops the execution 
of the program permanently, the other temporarily. A permanent 
stop is indicated when the verb STOP is followed by ; 


eee 
the word RUN 
cee If the stop is temporary, that is, if execution is to be resumed 


after the computer operator takes some corrective steps, the verb 
STOP is followed by ° 


a literal 
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Here is an example of STOP followed by a literal. What will 
happen to the literal when this stop is executed during the 
running of the object program? 


a ee mn TT 
SEE] RUN| BOOK . 


The literal will be typed out on the console typewriter. 


‘Kya The literal in the previous example is meant to be a 


(message to the computer] 
[comment in the source program listing] 
[message to the computer operator]. 


message to the computer operator 


Kime The final category of procedural words ts "program comments". 
This ts another one-word category, and deserves only brief study. 


Reading assignment: PROCEDURAL WORDS 
NOTE 


NOTE entries are used for program documentation only. The 
words written in a NOTE statement are 


[converted into machine language statements] 
[loaded into core storage as constants] 
[printed in the source program listing]. 


printed in the source program listing ONLY 
criem A NOTE 


cannot exceed the width of the source program listing form 


year no size limit 
can be as long as 120 characters, like all non-numeric literals 


has no size limit 
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LESSON 9 


The brtef summary of the procedural word IF, whitch you read in 

the prevtous lesson, indtcated tn a general way, that IF causes a 
eondttton to be tested, and causes alternate paths of actton to be 
taken, depending on whether the desertpttion of the condition ts 
true or false. In thts lesson, we wtll first study the vartous 
kinds of condittons that can be tested in IF statements. There 
are five kinds of econdittons (called "test-conditions" in COBOL 
gargon); you wtll study two of these now, the other three a 

little later. 


Reading assignment: TEST-CONDITIONS 
Relation test 
Sign test 


(Do not read about the condttton-name 
test yet.) 


In this IF sentence, pick out the test-condition and the 
statement to be acted on if the test-condition is true. Also, 
identify the test-condition. 


IF (NET 1S LESS THAN MINIMUM 


(COMPUTE DEFICIT =MINIMUM -NET 


aetton to be taken tf econditton tis true 


A relation test causes two values to be ° 
eee 

compared 
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cv The reason for comparing the two values ina relation test is to 
determine whether the stated relationship is true or false. In 
the first example below, the stated relationship is true if the 
values of the two data items are exactly equal, and false if 
either value is higher or lower than the other. 


i = ALT: Paue 
SER) = CIONTRIOLL 
= 


a ere? i mien al ln em 
NO] CHAIRGE'' 
4 bs ba z z a § t $ 
i : ; : i : : : é 


In the next example, the stated relationship is true if 
APPLICANT-AGE is [equal to] [less than] [greater than] 16; and 
false if APPLICANT-AGE is [equal to] [less than] [greater than]16. 


true if EITHER equal to OR less than 16; false ONLY if greater 
than 16 


When we take up "flow of control" later in thts lesson, we will 
Look closely at what happens when the test-condtttion ts true or 
falee. 


“em In the sign test, ZERO is considered to be [positive] [negative]. 


NEITHER positive NOR negative 
kyr This means that an item whose value is zero 


can have a sign, but it is ignored 


must not have an operational sign 
has a special + (plus-or-minus) sign 


can have a sign, but it is ignored 
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The reference handbook points out that the sign test is another 
way of stating a relation test that compares a number with zero. 
What sign test would be equivalent to the relation test below? 


IF TOTAL-DUE IS POSITIVE, GO TO WRITE-BILL. 


Both the relatton test and the sign test are easily comprehended. 
Next you wtll learn about three other tests, whose meaning -- 
at least the meantng of two of the three -- ts not always obvious. 


Reading assignment: TEST-CONDITIONS (continued) 
Condition-name test 
Overflow test 
Class test 


The class test is used to determine whether or not an item is 
or ‘J 


alphabetic, numeric 


A posstble use for class tests ts to check the valtdity of certain 
data ttems. For example, itt might be destred to determine whether 
an ttem that te supposed to contatn numerte information actually 
contains digits. (Such an ttem would have a pteture tdenttfytng 
tt as a numeric ttem, but there ts no automatte checking to vertfy 
that data put into an ttem durtng the running of a program 
corresponds to the ttem's picture.) 


In a condition-name test, the test-condition consists solely 
ofa ° 


programmer-supplied name 
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ERP The test resembles the condition-name test. 
eee 
overflow 
keke Since a condition-name test is another way of testing whether a 
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data item is equal to a literal, any condition-name test could 
be replaced by a 


relation test 
Sign test 
Class test 
overflow test 


relation test 


The reason a programmer might use a condition-name test instead 
of a relation test is to make the program more readable. If he 
has done his job right, the name of the condition will explain 
the meaning of the condition. For instance: 


The condition name, APPLICANT-WILL-TRAVEL, actually represents a 
specific value of a specific item. To find out what value, and 
what item, you would look in the division. 


Data 


A condition name is defined in a level number entry in 
the Data division. 


88 
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| 356 | Suppose the following entry appeared in the Data division: 


This entry gives the condition name, and the value represented 
by the condition name, but does not tell the name of the item. 


Where would you look for the item description entry to which the 
88-entry applies? 


Above the 88-entry. Level-88 entries follow immediately after 
the description of the entry to which they apply; there may, 
however, be more than one level-88 entry for an item. 


Here we see the condition-name entry in context. 


Which one of the following relation tests is the equivalent of 
IF APPLICANT-WILL~TRAVEL...? 


(2) 
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preferred test is the 


Whenever a programmer wants to test whether the value of a data 
item is equal to a literal, he has the choice of using either a 
relation test or a condition-name test. His decision as to which 
to use would be based in part on the readability of the relation 
test. A relation test such as IF TEST-SCORE = 100... tells just 
as much as IF PERFECT-TEST-SCORE..., so the programmer would 
probably use the relation test. 


On the other hand, if he had a choice of writing 
IF MARITAL-STATUS = 7... Or IF DIVORCED..., the programmer would 
certainly write IF DIVORCED... In this instance, then, the 


relation test 
condition-name test 


condition-name test 


NO similar choice exists when it comes to the overflow test. 

The overflow test is the only way of testing whether the 12-punch 
has been sensed in the carriage tape. (The punch in channel 12 
of the carriage tape indicates when the last normal printing line 
of the form has been reached, in order to leave a margin of blank 
paper at the bottom of each form.) 


This means that an overflow test will be found in most programs 
where there is printed output. The logic of the IF sentence 
containing the overflow test will nearly always be similar to the 
sample sentence given in the reference handbook, but of course, 
the programmer~supplied names will undoubtedly be different. 


The programmer-supplied name that represents the form-overflow 
condition is defined in an APPLY entry, which will be found in 


the I-O-Control paragraph of the division. 
eco 

Environment 
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Our dtscusstion of test-conditions leads naturally to closer study 
of the flow of control through COBOL procedures. After all, the 
reason for having test-condittons tis to permit control to flow 
along alternate procedural paths. 


The COBOL compiler, as you know, wtll cause the COBOL procedural 
statements to be translated tnto actual machine language 
tnetructions. When we talk about flow of control, we are "playing 
computer", so to speak, and acting as though the COBOL statements 
had already been translated and are now betng executed by the 
computer. In order to trace the flow of control, you must know 
such things as where the starting point ts, what sequence ts 
normally followed, and what statements cause deviations from 

that sequence. 


Reading assignment: FLOW OF CONTROL 
Starting point 
Sequence 
Branching 


(Don't study the flow of control through 
IF statements yet.) 


"Declarative" procedures are used to alter the usual actions 
performed by the tnput-output control system. One example of the 
use of declaratives ts in the processing of user label records, 
that ts, labels that provide file information over-and-above that 
provided by the standard label records. 


In this book, our only concern with declaratives is their effect 
on the place at which execution of a COBOL program begins. What 
is the starting point of program execution when there are 
declaratives? When there are no declaratives? 


When there are declaratives, control starts at the first 
procedure after the declaratives. When there are no declaratives, 
control starts at the first procedure of the Procedure division. 


How can you tell whether a program contains any declarative 
procedures? How can you tell where the declaratives end and the 
regular procedures begin? 


If a program contains declaratives, the line after the division 
header will state: DECLARATIVES. And the line after the last 
declarative procedure will state: END DECLARATIVES. 
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Control normally flows from one statement to the next 


in the order in which they are written in the program 

in alphabetical order according to the first letters of 
the verbs 

in order by verb categories, input-output being done first 


in the order in which they are written in the program 
cy =6When control comes to the end of a procedure, it normally 


waits for the next command from the supervisor program 


stops temporarily, until an operator presses the Start key 
goes right on to the next procedure in sequence 


goes right on to the next procedure in sequence 


ee The procedural words whieh can change the normal flow of control 
are the familtar quartet of "sequence control" words: GO TO, IF, 
PERFORM, and STOP. 


A GO TO statement causes control to branch unconditionally to 
the of a procedure. 


first statement 


eerem After a GO TO has caused control to branch to the beginning of 
a procedure, 


control immediately branches back to the statement after 
the GO TO 

the normal flow of control is resumed 

control flows through that procedure, and then returns 
to the GO TO 


the normal flow of control is resumed 
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EYY4 These drawings graphically illustrate the difference between 


COBOL Program Fundamentals 


GO TO (drawing A) and PERFORM (drawing B). Each drawing consists 


of four boxes that represent procedures. In each case, the flow 
of control begins at procedure P-1l; part way through the first 
procedure a sequence control statement is acted on. The flow 

arrows remind us that a branch is caused by [GO TO] [PERFORM]. 


ye 


BOTH GO TO AND PERFORM 


EY In both cases, control flows through procedure P-3, but at that 
point the difference occurs. In drawing A, control then flows 
, whereas in drawing B, control flows 


ee0e 
(A) to the next procedure in sequence, P-4 


(B) back to procedure P-1, where it will next act on the 
statement following the PERFORM statement 
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GO TO and PERFORM statements cause control to flow to the 
beginning of a procedure, so the programmer must think tn terms 
of procedures when using these statements. IF sentences, on the 
other hand, cause control etther to flow through or to jump over 
certain statements. Keep this difference in mind as you examine 
the logic dtagrams for IF statements, in the reference handbook. 


Reading assignment: FLOW OF CONTROL (continued) 
Flow of control through an IF sentence 
that does not contain ELSE or OTHERWISE 
Flow of control through an IF sentence 
that contains ELSE or OTHERWISE 


(Aen The logic diagrams you have just looked at ought to help you in 
determining what processing is accomplished in an IF sentence. 
The first step indicated in both diagrams is that the "data is 
evaluated", to find out whether the description of the data 
condition is true or false. 


Of the five test-conditions that can be used in IF sentences, 
one test-condition does not, strictly speaking, describe a data 
condition. Which one? 


ee0@ 
overflow test 


The togte dtagrams apply to the overflow test, too, except that 
the words "data is evaluated" are not appropriate. For that test, 
tt would be more appropriate to say something ltke "status of 
electronte indtcator tin printer is tested". However, I am sure 
we can get by with the diagrams as they stand; and might say that 
the "status of an indicator" constitutes a ptece of tnformatton, 
and that it ts therefore "data" -- in the larger sense of the 
word. 


yam It is also important to emphasize the difference between a "data 
condition", which is a matter of fact, and a "description of a 
data condition", which might be true or false at any given time. 
It is certainly not possible to tell whether a test-condition, 
such as STOCK-LEVEL IS LESS THAN MINIMUM-BALANCE, is true or 
false merely by looking at the COBOL entry. It is necessary to 
look at the data itself; and if we find that the value of STOCK- 
LEVEL is 355, and that the value of MINIMUM-BALANCE is 352, we 


ee ; tru 
can then say that the test-condition is {False} at this time. 


false 
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When an IF sentence does not contain ELSE or OTHERWISE, control 


statement 


sentence if the test-condition is false. 


jumps to the next 


sentence \ 


WEE The end of a sentence is identified by a ; 


period 


Wee It should be clear from the logic diagrams how important the 
distinction between a "sentence" anda "statement" now becomes. 
Previously, we have dealt with "unconditional" actions, where the 
distinction was not so important. For example, the first sentence 
below calls for exactly the same actions as the two sentences 
below it. 


But where the word IF is involved, the exact location of periods 
is vital. nee the two sets of entries below do not mean the 
same thing. Can you explain the difference between them? 


Q JOTA.,. Mol E 


; 

: : 3 

i : j 
; 


In the first set of entries, SALES will be added to YEAR-TO-DATE- 
SALES whether or not the value of SALES is less than the value of 
QUOTA. In the second set, SALES will be added to YEAR-TO-DATE- 
SALES only if the value of SALES is less than QUOTA. 
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EYZ§ What is wrong with this reasoning: 


The two sets of entries below accomplish exactly the same purpose. 
In each one, the EMPLOYEE-PLAN procedure will be performed if the 
value of AGE is less than 65; and RETIREE-PLAN will be performed 
if AGE is equal to or greater than 65. 


In the second set, RETIREE-PLAN will be performed no matter what 
the value of AGE is. 


wae The program-flowchart excerpts below correspond to the two sets 
of COBOL entries that you studted itn the prevtous frame. They 
tllustrate the difference between the two sets of entries. The 
difference ts precisely the same as the difference between the 
two logte diagrams in the reference handbook; you mtght wish to 
compare those general logic diagrams wtth these spectfie 
application flowcharts. 


NO(OTHERWISE ) 


PERFORM 
EMPLOYEE-PLAN 


PERFORM 
EMPLOYEE -PLAN 


PERFORM 
RETIREE - PLAN 


PERFORM 
RETIREE - PLAN 
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The flowcharts in the preceding frame show how a programmer 
thinks about the verb PERFORM. He treats PERFORM as tf tt were 

a process done "in line" wtthin a procedure. Of course, the 
programmer ts well aware -- just as you are aware -- that PERFORM 
actually causes control to branch off to some other procedure, 
and then causes control to come right back. Thts linkage to and 
from the other procedure ts completely taken care of by the COBOL 
comptler, which permits the programmer to take a simplified view 
of things. | 


But, when you are analyzing a program that someone else has 
written, to see just what the program does, you must locate the 
procedure that ts performed and examine the processing done tn 
that procedure. We are going to do just that next; we wtll trace 
the flow of control through a portion of the sample Procedure 
divtston tn the reference handbook. 


Turn to the sample Procedure division -- the one you looked at 


when you began detailed study of the division, not the case study 
program. Locate the IF sentence in the READ-NEXT-CARD paragraph. 


This frame, and the next seven frames, refer to the sample 
Procedure diviston. 


The IF statement states that TOTAL-ROUTINE is to be performed 
IF . 


NUMBER OF COMMODITY IS NOT EQUAL TO OLD-NUMBER 


TOTAL-ROUTINE is the programmer-supplied name of a . 


procedure (paragraph) 
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TOTAL-ROUTINE is the next procedure in sequence following 
READ-NEXT=-CARD. 


must follow 
need not follow 


that contains the PERFORM statement. 


A procedure to be performed the procedure 


ee@e 
need not follow 


A little while ago, you studted a drawing that showed a PERFORM 
statement in procedure P-1. The procedure to be performed did not 
follow P-1; tnetead, tt was procedure P-3, two procedures away. 
And tt would have been perfectly all rtght for a PERFORM 

statement tn procedure P-4 to say, "PERFORM P-1". 


TOTAL-ROUTINE consists of some MOVE statements and a WRITE 
statement. It does not contain a GO TO statement. How will 
control be returned to the statement following the PERFORM 
statement in the READ-NEXT-CARD procedure? 


Instructions to cause control to return will be generated by the 
COBOL compiler. 


To what statement will control return after TOTAL-ROUTINE has 
been performed? 


eee 
GO TO DETAIL-PROCESSING. 
DETAIL-PROCESSING is the name of a ‘ 
eee 
procedure 
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EfZ§ thus, immediately after control returns from TOTAL-ROUTINE, it 


385 
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is sent off to DETAIL-PROCESSING. This would seem to suggest, 
why not add a last statement to TOTAL-ROUTINE that says, "GO TO 
DETAIL-PROCESSING?" The main reason that this was not done is 
because the TOTAL-ROUTINE is to be performed at another point in 
the program, and at that point, control is not to go to 
DETAIL-~PROCESSING. 


Find the other "PERFORM TOTAL-ROUTINE" statement in the program. 


To what statement will control return following the execution of 
that PERFORM? 


The other "PERFORM TOTAL-ROUTINE" statement is in the END-OF-JOB 
procedure. After it is executed, control will go to the 
statement that reads, "CLOSE PURCHASING-FILE, PURCHASE-REPORT- 
FILE", 


Let's continue to trace the flow of control from the CLOSE 
statement. After the CLOSE statement is executed, control goes 
to a DISPLAY statement, and then to a STOP statement. 


dit Each of these COBOL statements also happens to bea 
sentence. Does this fact alter the flow of control 
in any way? 


2% Exactly what will happen when the DISPLAY statement 
1s executed? 


3. Where will control go following the execution of the 
STOP statement? 


Le No, not in this case; but as you have seen earlier, 
the distinction between statements and sentences is 
crucial when you are dealing with IF sentences. 


2% The words PURCHASE REPORT FINISHED will be typed on the 
console typewriter. 


3% Control will not go anywhere, as far as this program 
is concerned. STOP RUN means the job is finished. 
(Inetdentally, thts does not mean that the computer 
stops running; control ts stmply turned over to the 
operating system control program, whtch will probably 
Load the next program and process the next job.) 
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LESSON 10 


EES This final lesson will give you a chance to find out whether you 


387 


388 
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have learned what you were expected to learn from the other 
lessons, which ts to read a COBOL program with a high degree of 
comprehension. You ean think of thts lesson as a "self test", 
tnasmuch as you will be applying what you have prevtously 
learned, rather than learning new tnformation. 


Although there are no reading asstgnments in this lesson, you 
should feel free to look up information in the reference handbook 
whenever you need to. We have covered a lot of ground in nine 
lessons, and you were repeatedly urged not to memorize details, 
so tt would hardly be fatr to expect you to remember any but the 
most tmportant facts! (You may be surprised to find how many of 
the details have "etuck wtth you". Anyway, the answers are what 
count, not whether you have memortzed them, or must look them up. 


Most of our work in thts lesson will be done with the case study 
program. Turn to the Procedure dtiviston of the case study 
program, and locate the third procedure. 


RINE-1-PROCEDURE 


The third procedure is | TINE-1-PROCEDURE 


LINE-1-PROCEDURE 
The first sentence of that procedure is 


LINE-1-PROCEDURE. 
MOVE SPACES TO BILL-LINE-1. 


MOVE SPACES TO BILL-LINE-1. 


If “LINE-1-PROCEDURE." is not a sentence, what is it? 


It is a paragraph header entry (procedure header entry). 
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390 


39] 


392 


394 


395 


(3/66) 


"MOVE SPACES TO BILL-LINE-1." is the first sentence of its 
procedure. What is the first statement of that procedure? 


The sentence contains just one statement, "MOVE SPACES TO 
BILL-LINE-1". (The sentence ts terminated by a pertod, while the 
statement ts not; so the pertod ts the only dtfference between 
the first sentence and the fitret statement, in this case.) 


SPACES is one of a few reserved words that are called ‘ 


eee 
figurative constants 
BILL-LINE-1 is a programmer-supplied name of a data item. 
In which division would you look to find the description of the 
item? 
ee0e 
Data division 


Find the item description entry for BILL-LINE-l. The level 
number of that entry tells that BILL-LINE-1 is the name of a : 


record 


The level-01 entry for BILL-LINE-1, plus the string of level-02 
entries that follow it, together make up a : 


record description 


a group item 
BILL-LINE-1 is a record, and it is also an elementary item 
an independent item 
eee 
a group item 
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How many elementary items are there in the BILL-LINE-1 record? 


thirteen -- Every level-02 item in this record is an elementary 
item. 


kya There are no USAGE clauses in any of the entries in the 
BILL-LINE-1 record description. Do the items in this record have 
a usage? If so, what is their usage? 


Yes -- all data items have a usage, since "usage" is the COBOL 
term that means the data code in which data will be stored in 
an item. 


The usage of the items in this record is DISPLAY; when no usage 
is specified, it is assumed to be DISPLAY. 

cts Seven of the items in this record are called FILLER. What is 
"FILLER" ? 


FILLER is a reserved word that can be used in place of a name 
when the item is not going to contain any information or is not 
going to be processed. 


PICTURE 


. ; PICTURE $$,$S$.$$ 
chee The picture of the item named CREDITS is $$,$$$.$8 


$$,SS$.$$. 
eco 


$$,$$$.$$ (The final period is not part of the picture; it is 
the period that terminates the entry.) 


EW The picture identifies CREDITS as a item. 


report (that is, an item used to store edited data) 
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What is the name of the file in which BILL-LINE-1 is a record? 


CUSTOMER-BILL-FILE 


“ey §6What does "FD" stand for? 


File Description 


The FD entry for CUSTOMER-BILL-FILE contains the following 
clause: "RECORDING MODE F". What does "recording mode" mean? 
What does "F" stand for? 


"Recording mode" is the COBOL term for the format (layout) of 
records. "F" stands for "Fixed length". 


“lee How many different kinds of data records are there in 
CUSTOMER-BILL-FILE? 


four -- BILL-LINE-1, BILL-LINE-2, BILL~LINE-2, and BILL-LINE-4 


rte =Where would you look to find out what device CUSTOMER-BILL-FILE 
is assigned to? 


In the Environment division 


Ze Locate the Environment division. CUSTOMER-BILL-FILE is assigned 
to device number ° 


1403 (the IBM 1403 Printer) 
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reya The Environment division also indicates that the object program 


the same 


dels. 
the sane | computer models 


will be compiled and executed on 


different (Source computer is IBM-360 G50; object computer is 
IBM-360 F30.) 


BILLFILE 


; CUSTBILL 
rere 6The name of this COBOL program 1s BILLING : 


not specified 
eee 


BILLING (See the Program-Id paragraph of the Identification 
division.) 


first 


seat second be ule t 
The Data division is the \¢pirg ( division of the program. 


fourth 
ee0e 


third 


Ei} Turn to the Data division once again. Where would you look to 
find the descriptions of independent items? 


In the Working-Storage section 


“Rm 6Locate the Working-Storage section. Of the three items 
described in the section, the [first] [second] [third] is an 
independent item. 


ALL THREE are independent items -- all have level number 77. 


“40a How many characters does the item named SKIP-TO-CARRIAGE- 
CHANNEL-1 contain? 


one (Its picture is X.) 
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414 


415 


416 


417 


(3/66) 


Just above the Working-Storage section header is the record 
description of the BILL-LINE-4 record. How many characters does 
that record contain? 


133 (40 + 22 + 71) 


Does this mean that each of the other three records in the 
CUSTOMER-BILL-FILE also contains 133 characters? 


Yes, 1t does -- in this instance. You previously observed that 
the recording mode of the file is F, which means that all of the 
records in the file have the same length. 


Turn to the Procedure division again. Where will the flow of 
control through the procedures of this program begin? 


At the START-PROCESSING procedure (There are no declaratives 
in this program.) 


In a few words, what is the function of the OPEN statement in 
the START-PROCESSING procedure? Also, what does the OPEN 
statement tell you about BILLING-FILE and CUSTOMER-BILL-FILE? 


The OPEN statement makes the input and output files ready for 
reading and writing. It also tells us that BILLING-FILE is the 
input file, and that CUSTOMER-BILL-FILE is the output file. 


Where will control flow when it comes to the end of the 
START-PROCESSING procedure? 


To the next procedure in sequence: READ-AND-CHECK-RECORD 
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iE How many statements are in the first sentence of the 


420 


421 
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READ-AND-CHECK=-RECORD procedure? 


two: READ BILLING-FILE and GO TO END-OF-RUN 
BILLING-FILE is the name of a , and END-OF-RUN is the name 
of a ° 


file; procedure 


Under what condition will control branch to END-OF-RUN? 


When the end of the file has been reached; that is, when all of 
the data records have been processed. 


(AT END ts a elause of the READ statement, and ts menttoned tn 


the summary of the READ verb, under PROCEDURAL WORDS tn the 
reference handbook.) 


What actions are taken when control branches to the END-OF-RUN 
procedure? 


The input and output files are closed, and the run is stopped. 
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